Jump to content

Yahoo Chat Client (VB to Autoit)

Vhb0yZ
 Share

Recommended Posts

Vhb0yZ Seeker

Vhb0yZ

Posted
Posted

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

$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 Function

Y__Login.zip

Link to comment
Share on other sites
  • 2 weeks later...
soulhealer Wayfarer

soulhealer

Posted
Posted

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

$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

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 account

Sign in

Already have an account? Sign in here.

Sign In Now
 Share
Go to topic listing

  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...