Vhb0yZ Posted June 17, 2008 Share Posted June 17, 2008 Hi all I want make a Yahoo Client and i have a good example with Visual basic I was try convert to Autoit Script ,But it's not Work expandcollapse popup$oMyError = ObjEvent("AutoIt.Error", "COMErrFunc") $Sock = ObjCreate("MSWinsock.Winsock.1") $oX = ObjEvent($Sock, "Sock_") Global $strDatas Global $txtID_Text="v_mmo" Global $txtPassword_Text="xxxxx" Global $strSessionID ConsoleWrite(@crlf& "Status: Logging in..") $Sock.Close $Sock.Connect ("66.163.181.176", 5050) $strSessionID = ChrH("00 00 00 00");'apparently yahoo is retarded and you can just use 4 null bytes as the session id and it will still work Do ;Sleep(1000) ;ConsoleWrite(@CRLF&$Sock.State ) Until $Sock.State = 7 AdlibEnable("Sock_DataArrival", 1) While 1 Sleep(10) ;Sock_DataArrival() WEnd $Sock.Close Func Sock_Connect() ;initialise login SendPacket (76, ChrH("00 00 00 00"), "") EndFunc Func SendPacket($lngCommand , $strStatus , $strData);'send a packet $sckConnected = 7 If $Sock.State <> $sckConnected Then Return Local $d="YMSG" & ChrH("00 0D 00 00") & Word(StringLen($strData)) & Word($lngCommand) & $strStatus & $strSessionID & $strData FileWriteLine("a.Log",StringLen($d)&"-"&StringReplace($d,chr(0),Chr(174))) $e=StringReplace($d,chr(0),Chr(174)) $d=StringReplace($e,chr(174),chr(32)) ConsoleWrite(@CRLF&">> "&StringLen($d)) $Sock.SendData ($d) ConsoleWrite(@CRLF&">> "&$d) endFunc Func Sock_DataArrival() ;$totalBytes Sleep(1000) $strDatas = "" $Sock.GetData($strDatas) ConsoleWrite(@CRLF&"----"&$strDatas ) ParseData($strDatas) If $strDatas <> "" Then ConsoleWrite( @CRLF&"Nhan :"&$strDatas & @CRLF) EndIf EndFunc Func ParseData($strData) Dim $A1, $A2, $A3, $A4, $A5, $A6 If StringLen($strData) < 20 Then Return ConsoleWrite(@CRLF & Asc(StringMid($strData, 12, 1)) & "|" & $strData) Local $a=AscToHex(StringMid($strData, 11, 2)) Select Case $a="00 06";'incoming message $A1 = StringInStr( $strData, ChrH("31 C0 80")) $A2 = StringInStr(StringTrimLeft($strData,$A1 + 3), ChrH("C0 80")) $A3 = StringMid($strData, $A1 + 3, $A2 - $A1 - 3);'username $A4 = StringInStr($strData, ChrH("C0 80 31 34 C0 80")) $A5 = StringInStr(StringTrimLeft($strData,$A4 + 6), ChrH("C0 80")) $A6 = StringMid($strData, $A4 + 6, $A5 - $A4 - 6);'message MsgBox(0, "Message",$A3 & " says " & $A6) Case $a="00 4C";'replied to inital login command SendPacket (87, ChrH("00 00 00 00"), ChrH("31 C0 80") & $txtID_Text & ChrH("C0 80")) Case $a="00 55";'logged in ConsoleWrite( @crlf&"Status: Logged In") Case $a="00 57";'replied with challange for login Dim $strChallange , $Encrypted $A1 = StringInStr($strData, ChrH("39 34 C0 80"));'challange start $A2 = StringInStr(StringTrimLeft($strData,$A1 + 4), ChrH("C0 80"));'challange finish $strChallange = StringMid($strData, $A1 + 4, $A2 - $A1 - 4) ;'grab the challange $Encrypted = StringSplit(EncryptPassword($txtID_Text, $txtPassword_Text, $strChallange), ":") ;'encrypt password with challange SendPacket (84, ChrH("5A 55 AA 55"), ChrH("36 C0 80") & $Encrypted[1] & ChrH("C0 80 39 36 C0 80") & _ $Encrypted[2] & ChrH("C0 80 30 C0 80") & $txtID_Text & ChrH("C0 80 32 C0 80") & _ $txtID_Text & ChrH("C0 80 32 C0 80 31 C0 80 31 C0 80") & $txtID_Text & _ ChrH("C0 80 32 34 34 C0 80 35 32 34 32 32 33 C0 80 31 33 35 C0 80 37 2C 30 2C 30 2C 34 32 36 C0 80 31 34 38 C0 80 33 36 30 C0 80 35 39 C0 80 42 09 35 6C 72 66 63 63 6C 31 6B 68 65 68 39 26 62 3D 32 C0 80")) Case Else EndSelect endFunc Func YMSG12_ScriptedMind_Encrypt($username, $password, $Seed, $result_6, $result_96, $intt) Global $Return $Return = DllCall ("YMSG12ENCRYPT.dll", "str","YMSG12_ScriptedMind_Encrypt","str", $username, "str", $password, "str", $Seed, "str", $result_6, "str", $result_96,"long" ,$intt) ConsoleWriteError($Return) Return $Return EndFunc Func cmdSendMessage_Click() Dim $strID, $strMessage $strID = InputBox("Question", "ID to send to:", "???", "", -1, -1, 0, 0) $strMessage = InputBox("Message to send:" ,"Message to send:", "???", "", -1, -1, 0, 0) SendPacket( 79, ChrH("00 00 00 00"), ChrH("31 C0 80") & $txtID_Text & ChrH("C0 80 34 C0 80") & $txtID_Text & _ ChrH("C0 80 31 32 C0 80 4D 6A 41 77 4E 7A 59 31 4D 54 49 33 4E 51 3D 3D C0 80 36 31 C0 80 30 C0 80 32 C0 80") & _ ChrH("C0 80 35 C0 80") & $strID & ChrH("C0 80 31 33 C0 80 30 C0 80 34 39 C0 80 50 45 45 52 54 4F 50 45 45 52 C0 80")) SendPacket( 6, ChrH("5A 55 AA 56"), ChrH("31 C0 80") & $txtID_Text & _ ChrH("C0 80 35 C0 80") & $strID & ChrH("C0 80 31 34 C0 80") & $strMessage & _ ChrH("C0 80 39 37 C0 80 31 C0 80 36 33 C0 80 3B 30 C0 80 36 34 C0 80 30 C0 80 32 30 36 C0 80 30 C0 80")) EndFunc Func EncryptPassword($strID , $strPassword , $strChallange) Dim $strEncrypted1, $strEncrypted2 $strEncrypted1 = '' For $1=1 To 50 $strEncrypted1=$strEncrypted1&Chr(0) Next $strEncrypted2 = $strEncrypted1 YMSG12_ScriptedMind_Encrypt($strID, $strPassword, $strChallange, $strEncrypted1, $strEncrypted2, 1) Return $strEncrypted1 & ":" & $strEncrypted2 endFunc Func ChrH($strString) ;hex to ascii Local $ch="" Local $A1 $A1 = StringSplit($strString, " ") ;MsgBox(0,"",$A1[0]) Local $i For $i = 1 To $A1[0] $Ch = $Ch & Chr(Dec($A1[$i])) ;DoEvents Next Return $Ch endFunc Func AscToHex($strString) ;ascii to hex Local $i,$ah="" For $i = 1 To StringLen($strString) ;MsgBox(0,"",Hex(Asc(StringMid($strString, $i, 1)),2)) If StringLen(Hex(Asc(StringMid($strString, $i, 1)),2)) == 1 Then $ah = $ah & "0" & Hex(Asc(StringMid($strString, $i, 1))) Else $ah = $ah & Hex(Asc(StringMid($strString, $i, 1)),2) EndIf If $i <> StringLen($strString) Then $ah = $ah & " " ;DoEvents Next Return $ah endFunc ;'```````````````````````````````````````````````````````````` ;Put a value up to 65535 into this, and get a 2 byte integer Func Word($lngVal) ;by Xeon Local $Lo,$Hi $Lo= Round(($lngVal / 256),0) $Hi = Mod($lngVal , 256) Return Chr($Lo) & Chr($Hi) endFunc Func COMErrFunc() MsgBox(0, "AutoItCOM Test", "We intercepted a COM Error !" & @CRLF & @CRLF & _ "err.description is: " & @TAB & $oMyError.description & @CRLF & _ "err.windescription:" & @TAB & $oMyError.windescription & @CRLF & _ "err.number is: " & @TAB & Hex($oMyError.number, 8) & @CRLF & _ "err.lastdllerror is: " & @TAB & $oMyError.lastdllerror & @CRLF & _ "err.scriptline is: " & @TAB & $oMyError.scriptline & @CRLF & _ "err.source is: " & @TAB & $oMyError.source & @CRLF & _ "err.helpfile is: " & @TAB & $oMyError.helpfile & @CRLF & _ "err.helpcontext is: " & @TAB & $oMyError.helpcontext _ ) Local $err = $oMyError.number If $err = 0 Then $err = -1 SetError($err); to check for after this function returns Exit EndFunc;==>COMErrFunc Func Sock_Close() ConsoleWrite(@crlf& "Status: Logged Off") EndFunc Please help me fix it? VB Code : Private Declare Function YMSG12_ScriptedMind_Encrypt Lib "YMSG12ENCRYPT.dll" (ByVal username As String, ByVal Password As String, ByVal Seed As String, ByVal result_6 As String, ByVal result_96 As String, intt As Long) As Boolean Dim strSessionID As String Private Sub cmdStartLogin_Click() lblStatus.Caption = "Status: Logging in.." Sock.Close Sock.Connect "66.163.181.176", 5050 strSessionID = ChrH("00 00 00 00") 'apparently yahoo is retarded and you can just use 4 null bytes as the session id and it will still work Debug.Print "cmdStartLogin_Click" End Sub 'Put a value up to 65535 into this, and get a 2 byte integer Public Function Word(ByVal lngVal As Long) As String Dim Lo As Single Dim Hi As Single Lo = Fix(lngVal / 256) Hi = lngVal Mod 256 Word = Chr(Lo) & Chr(Hi) 'Debug.Print lngVal & " <~~~~~>" & Lo & "|" & Hi End Function Private Sub Sock_Connect() 'initialise login SendPacket 76, ChrH("00 00 00 00"), "" Debug.Print "Sock_Connect" End Sub Private Sub Sock_Close() lblStatus.Caption = "Status: Logged Off" End Sub Public Function SendPacket(lngCommand As Long, strStatus As String, strData As String) 'send a packet If Sock.State <> sckConnected Then Exit Function Sock.SendData "YMSG" & _ ChrH("00 0D 00 00") & _ Word(Len(strData)) & Word(lngCommand) & strStatus & strSessionID & strData Debug.Print "----------->>>" & "YMSG" & ChrH("00 0D 00 00") & Word(Len(strData)) & Word(lngCommand) & strStatus & strSessionID & strData Debug.Print "SendPacket" End Function Private Sub Sock_DataArrival(ByVal bytesTotal As Long) Dim strDatas As String Sock.GetData strDatas Call ParseData(strDatas) Debug.Print "Sock_DataArrival" End Sub Private Function ParseData(strData As String) Dim A1, A2, A3, A4, A5, A6 Debug.Print "ParseData 1" If Len(strData) < 20 Then Exit Function Debug.Print "ParseData 2" 'Debug.Print "-->" & Asc(Mid(strData, 12, 1)) & "|" & strData Select Case AscToHex(Mid(strData, 11, 2)) 'grab command Case "00 06" 'incoming message A1 = InStr(1, strData, ChrH("31 C0 80")) A2 = InStr(A1 + 3, strData, ChrH("C0 80")) A3 = Mid(strData, A1 + 3, A2 - A1 - 3) 'username A4 = InStr(1, strData, ChrH("C0 80 31 34 C0 80")) A5 = InStr(A4 + 6, strData, ChrH("C0 80")) A6 = Mid(strData, A4 + 6, A5 - A4 - 6) 'message MsgBox A3 & " says " & A6, vbInformation, "Message" Case "00 4C" 'replied to inital login command SendPacket 87, ChrH("00 00 00 00"), ChrH("31 C0 80") & txtID.Text & ChrH("C0 80") Case "00 55" 'logged in lblStatus.Caption = "Status: Logged In" Case "00 57" 'replied with challange for login Dim strChallange As String, Encrypted As Variant A1 = InStr(1, strData, ChrH("39 34 C0 80")) 'challange start A2 = InStr(A1 + 4, strData, ChrH("C0 80")) 'challange finish strChallange = Mid$(strData, A1 + 4, A2 - A1 - 4) 'grab the challange Encrypted = Split(EncryptPassword(txtID.Text, txtPassword.Text, strChallange), ":", 2) 'encrypt password with challange SendPacket 84, ChrH("5A 55 AA 55"), ChrH("36 C0 80") & Encrypted(0) & ChrH("C0 80 39 36 C0 80") & _ Encrypted(1) & ChrH("C0 80 30 C0 80") & txtID.Text & ChrH("C0 80 32 C0 80") & _ txtID.Text & ChrH("C0 80 32 C0 80 31 C0 80 31 C0 80") & txtID.Text & _ ChrH("C0 80 32 34 34 C0 80 35 32 34 32 32 33 C0 80 31 33 35 C0 80 37 2C 30 2C 30 2C 34 32 36 C0 80 31 34 38 C0 80 33 36 30 C0 80 35 39 C0 80 42 09 35 6C 72 66 63 63 6C 31 6B 68 65 68 39 26 62 3D 32 C0 80") Case Else End Select Debug.Print "ParseData 3" End Function Public Function EncryptPassword(strID As String, strPassword As String, strChallange As String) 'encrypt password Dim strEncrypted1 As String, strEncrypted2 As String 'MsgBox Len(String(50, vbNullChar)), vbOKOnly strEncrypted1 = String(50, vbNullChar) strEncrypted2 = strEncrypted1 Call YMSG12_ScriptedMind_Encrypt(strID, strPassword, strChallange, strEncrypted1, strEncrypted2, 1) EncryptPassword = strEncrypted1 & ":" & strEncrypted2 End Function Private Sub cmdSendMessage_Click() Dim strID As String, strMessage As String strID = InputBox("ID to send to:") strMessage = InputBox("Message to send:") SendPacket 79, ChrH("00 00 00 00"), ChrH("31 C0 80") & txtID.Text & ChrH("C0 80 34 C0 80") & txtID.Text & _ ChrH("C0 80 31 32 C0 80 4D 6A 41 77 4E 7A 59 31 4D 54 49 33 4E 51 3D 3D C0 80 36 31 C0 80 30 C0 80 32 C0 80") & _ ChrH("C0 80 35 C0 80") & strID & ChrH("C0 80 31 33 C0 80 30 C0 80 34 39 C0 80 50 45 45 52 54 4F 50 45 45 52 C0 80") 'packet detailing what kind of message SendPacket 6, ChrH("5A 55 AA 56"), ChrH("31 C0 80") & txtID.Text & _ ChrH("C0 80 35 C0 80") & strID & ChrH("C0 80 31 34 C0 80") & strMessage & _ ChrH("C0 80 39 37 C0 80 31 C0 80 36 33 C0 80 3B 30 C0 80 36 34 C0 80 30 C0 80 32 30 36 C0 80 30 C0 80") 'actual message packet End Sub Public Function ChrH(strString) As String 'hex to ascii Dim A1 A1 = Split(strString, " ") Dim i As Integer For i = 0 To UBound(A1) ChrH = ChrH & Chr("&H" & A1(i)) 'DoEvents Next i End Function Public Function AscToHex(strString As String) As String 'ascii to hex Dim i As Integer For i = 1 To Len(strString) If Len(Hex(Asc(Mid(strString, i, 1)))) = 1 Then AscToHex = AscToHex & "0" & Hex(Asc(Mid(strString, i, 1))) Else AscToHex = AscToHex & Hex(Asc(Mid(strString, i, 1))) End If If i <> Len(strString) Then AscToHex = AscToHex & " " DoEvents Next i ' Debug.Print "++++++>" & strString ' Debug.Print "~~~~~>" & AscToHex End FunctionY__Login.zip Link to comment Share on other sites More sharing options...
soulhealer Posted July 2, 2008 Share Posted July 2, 2008 Hi all I want make a Yahoo Client and i have a good example with Visual basic I was try convert to Autoit Script ,But it's not Work expandcollapse popup$oMyError = ObjEvent("AutoIt.Error", "COMErrFunc") $Sock = ObjCreate("MSWinsock.Winsock.1") $oX = ObjEvent($Sock, "Sock_") Global $strDatas Global $txtID_Text="v_mmo" Global $txtPassword_Text="xxxxx" Global $strSessionID ConsoleWrite(@crlf& "Status: Logging in..") $Sock.Close $Sock.Connect ("66.163.181.176", 5050) $strSessionID = ChrH("00 00 00 00");'apparently yahoo is retarded and you can just use 4 null bytes as the session id and it will still work Do ;Sleep(1000) ;ConsoleWrite(@CRLF&$Sock.State ) Until $Sock.State = 7 AdlibEnable("Sock_DataArrival", 1) While 1 Sleep(10) ;Sock_DataArrival() WEnd $Sock.Close Func Sock_Connect() ;initialise login SendPacket (76, ChrH("00 00 00 00"), "") EndFunc Func SendPacket($lngCommand , $strStatus , $strData);'send a packet $sckConnected = 7 If $Sock.State <> $sckConnected Then Return Local $d="YMSG" & ChrH("00 0D 00 00") & Word(StringLen($strData)) & Word($lngCommand) & $strStatus & $strSessionID & $strData FileWriteLine("a.Log",StringLen($d)&"-"&StringReplace($d,chr(0),Chr(174))) $e=StringReplace($d,chr(0),Chr(174)) $d=StringReplace($e,chr(174),chr(32)) ConsoleWrite(@CRLF&">> "&StringLen($d)) $Sock.SendData ($d) ConsoleWrite(@CRLF&">> "&$d) endFunc Func Sock_DataArrival() ;$totalBytes Sleep(1000) $strDatas = "" $Sock.GetData($strDatas) ConsoleWrite(@CRLF&"----"&$strDatas ) ParseData($strDatas) If $strDatas <> "" Then ConsoleWrite( @CRLF&"Nhan :"&$strDatas & @CRLF) EndIf EndFunc Func ParseData($strData) Dim $A1, $A2, $A3, $A4, $A5, $A6 If StringLen($strData) < 20 Then Return ConsoleWrite(@CRLF & Asc(StringMid($strData, 12, 1)) & "|" & $strData) Local $a=AscToHex(StringMid($strData, 11, 2)) Select Case $a="00 06";'incoming message $A1 = StringInStr( $strData, ChrH("31 C0 80")) $A2 = StringInStr(StringTrimLeft($strData,$A1 + 3), ChrH("C0 80")) $A3 = StringMid($strData, $A1 + 3, $A2 - $A1 - 3);'username $A4 = StringInStr($strData, ChrH("C0 80 31 34 C0 80")) $A5 = StringInStr(StringTrimLeft($strData,$A4 + 6), ChrH("C0 80")) $A6 = StringMid($strData, $A4 + 6, $A5 - $A4 - 6);'message MsgBox(0, "Message",$A3 & " says " & $A6) Case $a="00 4C";'replied to inital login command SendPacket (87, ChrH("00 00 00 00"), ChrH("31 C0 80") & $txtID_Text & ChrH("C0 80")) Case $a="00 55";'logged in ConsoleWrite( @crlf&"Status: Logged In") Case $a="00 57";'replied with challange for login Dim $strChallange , $Encrypted $A1 = StringInStr($strData, ChrH("39 34 C0 80"));'challange start $A2 = StringInStr(StringTrimLeft($strData,$A1 + 4), ChrH("C0 80"));'challange finish $strChallange = StringMid($strData, $A1 + 4, $A2 - $A1 - 4);'grab the challange $Encrypted = StringSplit(EncryptPassword($txtID_Text, $txtPassword_Text, $strChallange), ":");'encrypt password with challange SendPacket (84, ChrH("5A 55 AA 55"), ChrH("36 C0 80") & $Encrypted[1] & ChrH("C0 80 39 36 C0 80") & _ $Encrypted[2] & ChrH("C0 80 30 C0 80") & $txtID_Text & ChrH("C0 80 32 C0 80") & _ $txtID_Text & ChrH("C0 80 32 C0 80 31 C0 80 31 C0 80") & $txtID_Text & _ ChrH("C0 80 32 34 34 C0 80 35 32 34 32 32 33 C0 80 31 33 35 C0 80 37 2C 30 2C 30 2C 34 32 36 C0 80 31 34 38 C0 80 33 36 30 C0 80 35 39 C0 80 42 09 35 6C 72 66 63 63 6C 31 6B 68 65 68 39 26 62 3D 32 C0 80")) Case Else EndSelect endFunc Func YMSG12_ScriptedMind_Encrypt($username, $password, $Seed, $result_6, $result_96, $intt) Global $Return $Return = DllCall ("YMSG12ENCRYPT.dll", "str","YMSG12_ScriptedMind_Encrypt","str", $username, "str", $password, "str", $Seed, "str", $result_6, "str", $result_96,"long" ,$intt) ConsoleWriteError($Return) Return $Return EndFunc Func cmdSendMessage_Click() Dim $strID, $strMessage $strID = InputBox("Question", "ID to send to:", "???", "", -1, -1, 0, 0) $strMessage = InputBox("Message to send:" ,"Message to send:", "???", "", -1, -1, 0, 0) SendPacket( 79, ChrH("00 00 00 00"), ChrH("31 C0 80") & $txtID_Text & ChrH("C0 80 34 C0 80") & $txtID_Text & _ ChrH("C0 80 31 32 C0 80 4D 6A 41 77 4E 7A 59 31 4D 54 49 33 4E 51 3D 3D C0 80 36 31 C0 80 30 C0 80 32 C0 80") & _ ChrH("C0 80 35 C0 80") & $strID & ChrH("C0 80 31 33 C0 80 30 C0 80 34 39 C0 80 50 45 45 52 54 4F 50 45 45 52 C0 80")) SendPacket( 6, ChrH("5A 55 AA 56"), ChrH("31 C0 80") & $txtID_Text & _ ChrH("C0 80 35 C0 80") & $strID & ChrH("C0 80 31 34 C0 80") & $strMessage & _ ChrH("C0 80 39 37 C0 80 31 C0 80 36 33 C0 80 3B 30 C0 80 36 34 C0 80 30 C0 80 32 30 36 C0 80 30 C0 80")) EndFunc Func EncryptPassword($strID , $strPassword , $strChallange) Dim $strEncrypted1, $strEncrypted2 $strEncrypted1 = '' For $1=1 To 50 $strEncrypted1=$strEncrypted1&Chr(0) Next $strEncrypted2 = $strEncrypted1 YMSG12_ScriptedMind_Encrypt($strID, $strPassword, $strChallange, $strEncrypted1, $strEncrypted2, 1) Return $strEncrypted1 & ":" & $strEncrypted2 endFunc Func ChrH($strString) ;hex to ascii Local $ch="" Local $A1 $A1 = StringSplit($strString, " ") ;MsgBox(0,"",$A1[0]) Local $i For $i = 1 To $A1[0] $Ch = $Ch & Chr(Dec($A1[$i])) ;DoEvents Next Return $Ch endFunc Func AscToHex($strString) ;ascii to hex Local $i,$ah="" For $i = 1 To StringLen($strString) ;MsgBox(0,"",Hex(Asc(StringMid($strString, $i, 1)),2)) If StringLen(Hex(Asc(StringMid($strString, $i, 1)),2)) == 1 Then $ah = $ah & "0" & Hex(Asc(StringMid($strString, $i, 1))) Else $ah = $ah & Hex(Asc(StringMid($strString, $i, 1)),2) EndIf If $i <> StringLen($strString) Then $ah = $ah & " " ;DoEvents Next Return $ah endFunc ;'```````````````````````````````````````````````````````````` ;Put a value up to 65535 into this, and get a 2 byte integer Func Word($lngVal) ;by Xeon Local $Lo,$Hi $Lo= Round(($lngVal / 256),0) $Hi = Mod($lngVal , 256) Return Chr($Lo) & Chr($Hi) endFunc Func COMErrFunc() MsgBox(0, "AutoItCOM Test", "We intercepted a COM Error !" & @CRLF & @CRLF & _ "err.description is: " & @TAB & $oMyError.description & @CRLF & _ "err.windescription:" & @TAB & $oMyError.windescription & @CRLF & _ "err.number is: " & @TAB & Hex($oMyError.number, 8) & @CRLF & _ "err.lastdllerror is: " & @TAB & $oMyError.lastdllerror & @CRLF & _ "err.scriptline is: " & @TAB & $oMyError.scriptline & @CRLF & _ "err.source is: " & @TAB & $oMyError.source & @CRLF & _ "err.helpfile is: " & @TAB & $oMyError.helpfile & @CRLF & _ "err.helpcontext is: " & @TAB & $oMyError.helpcontext _ ) Local $err = $oMyError.number If $err = 0 Then $err = -1 SetError($err); to check for after this function returns Exit EndFunc;==>COMErrFunc Func Sock_Close() ConsoleWrite(@crlf& "Status: Logged Off") EndFunc Please help me fix it? VB Code : so, there's no progress on this script? Link to comment Share on other sites More sharing options...
Recommended Posts
Create an account or sign in to comment
You need to be a member in order to leave a comment
Create an account
Sign up for a new account in our community. It's easy!
Register a new accountSign in
Already have an account? Sign in here.
Sign In Now