Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
- Dim keyword As String = ""
- Dim arrKeyword() As String
- Dim param As String = ""
- Timer1.Enabled = False
- ymVersion = getYMVersion()
- Select Case ymVersion
- Case "8"
- hwndYMMainClass = FindWindow("YSearchMenuWndClass", vbNullString)
- Case "9"
- hwndYMMainClass = FindWindow("ATL:007C07F0", vbNullString)
- Case "10"
- hwndYMMainClass = FindWindow("CConvWndBase", vbNullString)
- End Select
- If hwndYMMainClass <> 0 Then
- pause(1)
- ymid = getYMID(hwndYMMainClass)
- msg = getYMMessage(hwndYMMainClass)
- lstBox.Items.Add(ymid + "-" + msg)
- 'Label1.Text = msg
- If Len(msg) > 0 Then
- If InStr(1, msg, " ", CompareMethod.Text) > 0 Then
- arrKeyword = Split(msg, " ")
- keyword = arrKeyword(0)
- Else
- keyword = msg
- ReDim arrKeyword(0)
- End If
- Else
- keyword = ""
- ReDim arrKeyword(0)
- End If
- ymChatSend(hwndYMMainClass, "Telah terima")
- closeYM(hwndYMMainClass)
- Timer1.Enabled = True
- 'MsgBox(keyword)
- End If
- End Sub
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement