שליחת וקבלת API מאקסס

[אפקטיביות]

מצאתי באנשהו קטע קוד VB.NET ש(לכאורה) מיועד בדיוק למטרה זו - תקשורת API עם אסטריקס.
מישהו יכול לתרגם לי את הקטעים רלונטיים לVBA?

 

[moishy]

אכן כך זה נראה, TCP פשוט. הבעיה שאין לזה תמיכה ישירה בVBA. בדוטנט יש אפשרות פשוטה.

ראשית צריך את ההפניות האלו:

Imports System
Imports System.Net
Imports System.Net.Sockets
Imports System.Text.RegularExpressions
Imports System.Text

וכעת ע"מ ליצור חיבור:

Dim clientSocket As Socket = New Socket(AddressFamily.InterNetwork, SocketType.Stream, ProtocolType.Tcp)
Dim serverEndPoint As IPEndPoint = New IPEndPoint(IPAddress.Parse("212.213.214.215"), 1234)
clientSocket.Connect(serverEndPoint)
clientSocket.Send(Encoding.ASCII.GetBytes("Action: Login"& vbCrLf&"Username: משתמש"& vbCrLf&"Secret: סיסמה"& vbCrLf&"ActionID: 1"& vbCrLf& vbCrLf))
Dim bytesRead As Integer = 0

Do Until (bytesRead <> 0)
    Dim buffer() As Byte = New Byte((1024) - 1) {}
    bytesRead = clientSocket.Receive(buffer)
    Dim response As String = Encoding.ASCII.GetString(buffer, 0, bytesRead)
    Console.WriteLine(response)
    If Regex.Match(response, "Message: Authentication accepted", RegexOptions.IgnoreCase).Success Then
        clientSocket.Send(Encoding.ASCII.GetBytes("Action: Ping"& vbCrLf&"ActionID: 2"& vbCrLf& vbCrLf))
    End If
Loop

 

[אפקטיביות]

ראשית צריך את ההפניות האלו:

Imports System
Imports System.Net
Imports System.Net.Sockets
Imports System.Text.RegularExpressions
Imports System.Text

זה נראה הפניות שכתובות ב.NET, היכן לכתוב אותם בVBA? במודול מחלקה? צריך הקדמה מסויימת?

Console.WriteLine(response)

זה גם נראה קטע מVB.NET, נכון? איך לתרגמו לVBA?

 

[moishy]

זהו, שא"א לכתוב את זה בVBA.

 

[957]

‫
אולי ניתן לקרוא באקסס לממשק אחר לבצע את הפקודה
כוונתי שלא יריץ בעצמו אלא שיפעיל פקודה שהיא הפעלת פקודה בפלטפורמה אחרת שהיא תבצע את הקריאה לאסטריסק‬

 

[אפקטיביות]

זהו, שא"א לכתוב את זה בVBA.

האם תיאורטית ניתן לקמפל את הקטע קוד VB.NET שצירפתי לעיל, לDLL שאקסס יידע לקרוא?

(כלומר, האם ניתן לתת לאקסס DLL שיבצע פקודות בפלטפורמה אחרת?)

 

[שמח לעזור]

כן.
הקוד שהבאתם משתמש עם דרכים פרימיטביות מאוד.
הקוד צריך להיות מופשט וקצר בהרבה, הנה דוגמה:

Dim command = String.Join(vbCrLf, "Action: Login", "Username: משתמש", "Secret: סיסמה", "ActionID: 1") + vbCrLf + vbCrLf

Using wc As New WebClient()
	Dim response = wc.UploadString("http://212.213.214.215:1234", command)
	If response.Contains("Message: Authentication accepted") Then
		wc.UploadString("http://212.213.214.215:1234", "Action: Ping" + vbCrLf +  "ActionID: 2" + vbCrLf + vbCrLf)
	End If
End Using

 

[שמח לעזור]

כעת ראיתי שיש באינטרנט ספריה לVBA שמנהלת יפה תקשורת http וניתוח של json
https://github.com/VBA-tools/VBA-Web

אבל עושה לי רע על הלב שבגלל זה עוד מאה מתכנתי VBA יישארו נטועים חזק על מקומם.

 

[moishy]

האם תיאורטית ניתן לקמפל את הקטע קוד VB.NET שצירפתי לעיל, לDLL שאקסס יידע לקרוא?

(כלומר, האם ניתן לתת לאקסס DLL שיבצע פקודות בפלטפורמה אחרת?)

https://richnewman.wordpress.com/2007/08/25/a-beginner’s-guide-to-calling-a-net-library-from-access/

 

[אפקטיביות]

כן.
הקוד שהבאתם משתמש עם דרכים פרימיטביות מאוד.
הקוד צריך להיות מופשט וקצר בהרבה, הנה דוגמה:

Dim command = String.Join(vbCrLf, "Action: Login", "Username: משתמש", "Secret: סיסמה", "ActionID: 1") + vbCrLf + vbCrLf

Using wc As New WebClient()
	Dim response = wc.UploadString("http://212.213.214.215:1234", command)
	If response.Contains("Message: Authentication accepted") Then
		wc.UploadString("http://212.213.214.215:1234", "Action: Ping" + vbCrLf +  "ActionID: 2" + vbCrLf + vbCrLf)
	End If
End Using

אני שמח ששמח לעזור בא לעזרתינו..
הקוד שהבאת הוא לVBA או לVB.NET?

כעת ראיתי שיש באינטרנט ספריה לVBA שמנהלת יפה תקשורת http וניתוח של json
https://github.com/VBA-tools/VBA-Web

אבל עושה לי רע על הלב שבגלל זה עוד מאה מתכנתי VBA יישארו נטועים חזק על מקומם.

אל ירע ליבך, ואל יחשכו עיניך. ככה לומדים לגדול.
ואדרבה, תרים את הכפפה ותכוון אותי ואותנו היכן מוצאים את פריצת הדרך ללמוד תכנות אמיתי.

 

[שמח לעזור]

הקוד הוא vb.net, אלטרנטיבה לדרך הקשה בה עשו כותבי הקוד שהובא על ידך לעיל.

 

[אפקטיביות]

הקוד הוא vb.net, אלטרנטיבה לדרך הקשה בה עשו כותבי הקוד שהובא על ידך לעיל.

אפשר לנסות לתרגם אותו לVBA ע"י הספריה שמצאת לעיל?

 

[chagold]

אל ירע ליבך, ואל יחשכו עיניך. ככה לומדים לגדול.
ואדרבה, תרים את הכפפה ותכוון אותי ואותנו היכן מוצאים את פריצת הדרך ללמוד תכנות אמיתי.[/QUOTE]



מצ"ב מדריכים לPHP