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
זה נראה הפניות שכתובות ב.NET, היכן לכתוב אותם בVBA? במודול מחלקה? צריך הקדמה מסויימת?נכתב ע"י moishy;2065571:ראשית צריך את ההפניות האלו:
קוד:Imports System Imports System.Net Imports System.Net.Sockets Imports System.Text.RegularExpressions Imports System.Text
זה גם נראה קטע מVB.NET, נכון? איך לתרגמו לVBA?קוד:Console.WriteLine(response)
האם תיאורטית ניתן לקמפל את הקטע קוד VB.NET שצירפתי לעיל, לDLL שאקסס יידע לקרוא?נכתב ע"י moishy;2065598:זהו, שא"א לכתוב את זה בVBA.
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
https://richnewman.wordpress.com/2007/08/25/a-beginner’s-guide-to-calling-a-net-library-from-access/נכתב ע"י סבתא111;2065900:האם תיאורטית ניתן לקמפל את הקטע קוד VB.NET שצירפתי לעיל, לDLL שאקסס יידע לקרוא?
(כלומר, האם ניתן לתת לאקסס DLL שיבצע פקודות בפלטפורמה אחרת?)
אני שמח ששמח לעזור בא לעזרתינו..נכתב ע"י שמח לעזור;2065951:כן.
הקוד שהבאתם משתמש עם דרכים פרימיטביות מאוד.
הקוד צריך להיות מופשט וקצר בהרבה, הנה דוגמה:
קוד: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 יישארו נטועים חזק על מקומם.
אפשר לנסות לתרגם אותו לVBA ע"י הספריה שמצאת לעיל?נכתב ע"י שמח לעזור;2066121:הקוד הוא vb.net, אלטרנטיבה לדרך הקשה בה עשו כותבי הקוד שהובא על ידך לעיל.
לוח לימודים
מסלולי לימוד שאפשר לההצטרף
אליהם ממש עכשיו:
4.06
כ"ז אייר
קורס משולב בינה מלאכותית
קורס פיתוח ובניית אתרים
קריירה מתקדמת, ביקוש עצום, וממוצע משכורות גבוה במיוחד!
מלגות גבוהות ומשתלמות!
2.06
כ"ה אייר
פתיחת מסלול
קורס עריכת וידאו
מלגות והנחות משמעותיות!
4.06
כ"ז אייר
#רקבפרוג
הרצאה מרתקת:
הכירו את טווינמושן
עם גל אקסלרוד
עולם מטורף משל הדמיות! ממשק חדשני שמאפשר לבצע הדמיה כמעט כמו משחק מחשב
לתלמידים ובוגרים בלבד!
27.06
כ"א סיוון
פתיחת מסלול
עיצוב ואדריכלות פנים
מלגות גבוהות!
27.06
כ"א סיוון
השקה חגיגית!
עיצוב גרפי ודיגיטל - בסילבוס חדש ומטורף!
מלגות גבוהות!
תהילים פרק א
א אַשְׁרֵי הָאִישׁ אֲשֶׁר לֹא הָלַךְ בַּעֲצַת רְשָׁעִים וּבְדֶרֶךְ חַטָּאִים לֹא עָמָד וּבְמוֹשַׁב לֵצִים לֹא יָשָׁב:ב כִּי אִם בְּתוֹרַת יְהוָה חֶפְצוֹ וּבְתוֹרָתוֹ יֶהְגֶּה יוֹמָם וָלָיְלָה:ג וְהָיָה כְּעֵץ שָׁתוּל עַל פַּלְגֵי מָיִם אֲשֶׁר פִּרְיוֹ יִתֵּן בְּעִתּוֹ וְעָלֵהוּ לֹא יִבּוֹל וְכֹל אֲשֶׁר יַעֲשֶׂה יַצְלִיחַ:ד לֹא כֵן הָרְשָׁעִים כִּי אִם כַּמֹּץ אֲשֶׁר תִּדְּפֶנּוּ רוּחַ:ה עַל כֵּן לֹא יָקֻמוּ רְשָׁעִים בַּמִּשְׁפָּט וְחַטָּאִים בַּעֲדַת צַדִּיקִים:ו כִּי יוֹדֵעַ יְהוָה דֶּרֶךְ צַדִּיקִים וְדֶרֶךְ רְשָׁעִים תֹּאבֵד: