怎样用VB编写QQ登陆的软件
来自： 更新日期：早些时候
怎样用微信电脑版登陆~
Public Const BITS_TO_A_BYTE = 8
Public Const BYTES_TO_A_WORD = 4
Public Const BITS_TO_A_WORD = 32
Public m_lOnBits(30)
Public m_l2Power(30)
Public Function LShift(lValue, iShiftBits)
If iShiftBits = 0 Then
LShift = lValue
Exit Function
ElseIf iShiftBits = 31 Then
If lValue And 1 Then
LShift = &H80000000
Else
LShift = 0
End If
Exit Function
ElseIf iShiftBits < 0 Or iShiftBits > 31 Then
Err.Raise 6
End If
If (lValue And m_l2Power(31 - iShiftBits)) Then
LShift = ((lValue And m_lOnBits(31 - (iShiftBits + 1))) * m_l2Power(iShiftBits)) Or &H80000000
Else
LShift = ((lValue And m_lOnBits(31 - iShiftBits)) * m_l2Power(iShiftBits))
End If
End Function
Public Function RShift(lValue, iShiftBits)
If iShiftBits = 0 Then
RShift = lValue
Exit Function
ElseIf iShiftBits = 31 Then
If lValue And &H80000000 Then
RShift = 1
Else
RShift = 0
End If
Exit Function
ElseIf iShiftBits < 0 Or iShiftBits > 31 Then
Err.Raise 6
End If
RShift = (lValue And &H7FFFFFFE) \ m_l2Power(iShiftBits)
If (lValue And &H80000000) Then
RShift = (RShift Or (&H40000000 \ m_l2Power(iShiftBits - 1)))
End If
End Function
Public Function RotateLeft(lValue, iShiftBits)
RotateLeft = LShift(lValue, iShiftBits) Or RShift(lValue, (32 - iShiftBits))
End Function
Public Function AddUnsigned(lX, lY)
Dim lX4
Dim lY4
Dim lX8
Dim lY8
Dim lResult
lX8 = lX And &H80000000
lY8 = lY And &H80000000
lX4 = lX And &H40000000
lY4 = lY And &H40000000
lResult = (lX And &H3FFFFFFF) + (lY And &H3FFFFFFF)
If lX4 And lY4 Then
lResult = lResult Xor &H80000000 Xor lX8 Xor lY8
ElseIf lX4 Or lY4 Then
If lResult And &H40000000 Then
lResult = lResult Xor &HC0000000 Xor lX8 Xor lY8
Else
lResult = lResult Xor &H40000000 Xor lX8 Xor lY8
End If
Else
lResult = lResult Xor lX8 Xor lY8
End If
AddUnsigned = lResult
End Function
Public Function md5_F(x, y, z)
md5_F = (x And y) Or ((Not x) And z)
End Function
Public Function md5_G(x, y, z)
md5_G = (x And z) Or (y And (Not z))
End Function
Public Function md5_H(x, y, z)
md5_H = (x Xor y Xor z)
End Function
Public Function md5_I(x, y, z)
md5_I = (y Xor (x Or (Not z)))
End Function
Public Sub md5_FF(a, b, c, d, x, s, ac)
a = AddUnsigned(a, AddUnsigned(AddUnsigned(md5_F(b, c, d), x), ac))
a = RotateLeft(a, s)
a = AddUnsigned(a, b)
End Sub
Public Sub md5_GG(a, b, c, d, x, s, ac)
a = AddUnsigned(a, AddUnsigned(AddUnsigned(md5_G(b, c, d), x), ac))
a = RotateLeft(a, s)
a = AddUnsigned(a, b)
End Sub
Public Sub md5_HH(a, b, c, d, x, s, ac)
a = AddUnsigned(a, AddUnsigned(AddUnsigned(md5_H(b, c, d), x), ac))
a = RotateLeft(a, s)
a = AddUnsigned(a, b)
End Sub
Public Sub md5_II(a, b, c, d, x, s, ac)
a = AddUnsigned(a, AddUnsigned(AddUnsigned(md5_I(b, c, d), x), ac))
a = RotateLeft(a, s)
a = AddUnsigned(a, b)
End Sub
Public Function ConvertToWordArray(sMessage)
Dim lMessageLength
Dim lNumberOfWords
Dim lWordArray()
Dim lBytePosition
Dim lByteCount
Dim lWordCount
Const MODULUS_BITS = 512
Const CONGRUENT_BITS = 448
lMessageLength = Len(sMessage)
lNumberOfWords = (((lMessageLength + ((MODULUS_BITS - CONGRUENT_BITS) \ BITS_TO_A_BYTE)) \ (MODULUS_BITS \ BITS_TO_A_BYTE)) + 1) * (MODULUS_BITS \ BITS_TO_A_WORD)
ReDim lWordArray(lNumberOfWords - 1)
lBytePosition = 0
lByteCount = 0
Do Until lByteCount >= lMessageLength
lWordCount = lByteCount \ BYTES_TO_A_WORD
lBytePosition = (lByteCount Mod BYTES_TO_A_WORD) * BITS_TO_A_BYTE
lWordArray(lWordCount) = lWordArray(lWordCount) Or LShift(Asc(Mid(sMessage, lByteCount + 1, 1)), lBytePosition)
lByteCount = lByteCount + 1
Loop
lWordCount = lByteCount \ BYTES_TO_A_WORD
lBytePosition = (lByteCount Mod BYTES_TO_A_WORD) * BITS_TO_A_BYTE
lWordArray(lWordCount) = lWordArray(lWordCount) Or LShift(&H80, lBytePosition)
lWordArray(lNumberOfWords - 2) = LShift(lMessageLength, 3)
lWordArray(lNumberOfWords - 1) = RShift(lMessageLength, 29)
ConvertToWordArray = lWordArray
End Function
Public Function WordToHex(lValue)
Dim lByte
Dim lCount
For lCount = 0 To 3
lByte = RShift(lValue, lCount * BITS_TO_A_BYTE) And m_lOnBits(BITS_TO_A_BYTE - 1)
WordToHex = WordToHex & Right("0" & Hex(lByte), 2)
Next
End Function
Public Function MD5(sMessage)
m_lOnBits(0) = CLng(1)
m_lOnBits(1) = CLng(3)
m_lOnBits(2) = CLng(7)
m_lOnBits(3) = CLng(15)
m_lOnBits(4) = CLng(31)
m_lOnBits(5) = CLng(63)
m_lOnBits(6) = CLng(127)
m_lOnBits(7) = CLng(255)
m_lOnBits(8) = CLng(511)
m_lOnBits(9) = CLng(1023)
m_lOnBits(10) = CLng(2047)
m_lOnBits(11) = CLng(4095)
m_lOnBits(12) = CLng(8191)
m_lOnBits(13) = CLng(16383)
m_lOnBits(14) = CLng(32767)
m_lOnBits(15) = CLng(65535)
m_lOnBits(16) = CLng(131071)
m_lOnBits(17) = CLng(262143)
m_lOnBits(18) = CLng(524287)
m_lOnBits(19) = CLng(1048575)
m_lOnBits(20) = CLng(2097151)
m_lOnBits(21) = CLng(4194303)
m_lOnBits(22) = CLng(8388607)
m_lOnBits(23) = CLng(16777215)
m_lOnBits(24) = CLng(33554431)
m_lOnBits(25) = CLng(67108863)
m_lOnBits(26) = CLng(134217727)
m_lOnBits(27) = CLng(268435455)
m_lOnBits(28) = CLng(536870911)
m_lOnBits(29) = CLng(1073741823)
m_lOnBits(30) = CLng(2147483647)
m_l2Power(0) = CLng(1)
m_l2Power(1) = CLng(2)
m_l2Power(2) = CLng(4)
m_l2Power(3) = CLng(8)
m_l2Power(4) = CLng(16)
m_l2Power(5) = CLng(32)
m_l2Power(6) = CLng(64)
m_l2Power(7) = CLng(128)
m_l2Power(8) = CLng(256)
m_l2Power(9) = CLng(512)
m_l2Power(10) = CLng(1024)
m_l2Power(11) = CLng(2048)
m_l2Power(12) = CLng(4096)
m_l2Power(13) = CLng(8192)
m_l2Power(14) = CLng(16384)
m_l2Power(15) = CLng(32768)
m_l2Power(16) = CLng(65536)
m_l2Power(17) = CLng(131072)
m_l2Power(18) = CLng(262144)
m_l2Power(19) = CLng(524288)
m_l2Power(20) = CLng(1048576)
m_l2Power(21) = CLng(2097152)
m_l2Power(22) = CLng(4194304)
m_l2Power(23) = CLng(8388608)
m_l2Power(24) = CLng(16777216)
m_l2Power(25) = CLng(33554432)
m_l2Power(26) = CLng(67108864)
m_l2Power(27) = CLng(134217728)
m_l2Power(28) = CLng(268435456)
m_l2Power(29) = CLng(536870912)
m_l2Power(30) = CLng(1073741824)
Dim x
Dim k
Dim AA
Dim BB
Dim CC
Dim DD
Dim a
Dim b
Dim c
Dim d
Const S11 = 7
Const S12 = 12
Const S13 = 17
Const S14 = 22
Const S21 = 5
Const S22 = 9
Const S23 = 14
Const S24 = 20
Const S31 = 4
Const S32 = 11
Const S33 = 16
Const S34 = 23
Const S41 = 6
Const S42 = 10
Const S43 = 15
Const S44 = 21
x = ConvertToWordArray(sMessage)
a = &H67452301
b = &HEFCDAB89
c = &H98BADCFE
d = &H10325476
For k = 0 To UBound(x) Step 16
AA = a
BB = b
CC = c
DD = d
md5_FF a, b, c, d, x(k + 0), S11, &HD76AA478
md5_FF d, a, b, c, x(k + 1), S12, &HE8C7B756
md5_FF c, d, a, b, x(k + 2), S13, &H242070DB
md5_FF b, c, d, a, x(k + 3), S14, &HC1BDCEEE
md5_FF a, b, c, d, x(k + 4), S11, &HF57C0FAF
md5_FF d, a, b, c, x(k + 5), S12, &H4787C62A
md5_FF c, d, a, b, x(k + 6), S13, &HA8304613
md5_FF b, c, d, a, x(k + 7), S14, &HFD469501
md5_FF a, b, c, d, x(k + 8), S11, &H698098D8
md5_FF d, a, b, c, x(k + 9), S12, &H8B44F7AF
md5_FF c, d, a, b, x(k + 10), S13, &HFFFF5BB1
md5_FF b, c, d, a, x(k + 11), S14, &H895CD7BE
md5_FF a, b, c, d, x(k + 12), S11, &H6B901122
md5_FF d, a, b, c, x(k + 13), S12, &HFD987193
md5_FF c, d, a, b, x(k + 14), S13, &HA679438E
md5_FF b, c, d, a, x(k + 15), S14, &H49B40821
md5_GG a, b, c, d, x(k + 1), S21, &HF61E2562
md5_GG d, a, b, c, x(k + 6), S22, &HC040B340
md5_GG c, d, a, b, x(k + 11), S23, &H265E5A51
md5_GG b, c, d, a, x(k + 0), S24, &HE9B6C7AA
md5_GG a, b, c, d, x(k + 5), S21, &HD62F105D
md5_GG d, a, b, c, x(k + 10), S22, &H2441453
md5_GG c, d, a, b, x(k + 15), S23, &HD8A1E681
md5_GG b, c, d, a, x(k + 4), S24, &HE7D3FBC8
md5_GG a, b, c, d, x(k + 9), S21, &H21E1CDE6
md5_GG d, a, b, c, x(k + 14), S22, &HC33707D6
md5_GG c, d, a, b, x(k + 3), S23, &HF4D50D87
md5_GG b, c, d, a, x(k + 8), S24, &H455A14ED
md5_GG a, b, c, d, x(k + 13), S21, &HA9E3E905
md5_GG d, a, b, c, x(k + 2), S22, &HFCEFA3F8
md5_GG c, d, a, b, x(k + 7), S23, &H676F02D9
md5_GG b, c, d, a, x(k + 12), S24, &H8D2A4C8A
md5_HH a, b, c, d, x(k + 5), S31, &HFFFA3942
md5_HH d, a, b, c, x(k + 8), S32, &H8771F681
md5_HH c, d, a, b, x(k + 11), S33, &H6D9D6122
md5_HH b, c, d, a, x(k + 14), S34, &HFDE5380C
md5_HH a, b, c, d, x(k + 1), S31, &HA4BEEA44
md5_HH d, a, b, c, x(k + 4), S32, &H4BDECFA9
md5_HH c, d, a, b, x(k + 7), S33, &HF6BB4B60
md5_HH b, c, d, a, x(k + 10), S34, &HBEBFBC70
md5_HH a, b, c, d, x(k + 13), S31, &H289B7EC6
md5_HH d, a, b, c, x(k + 0), S32, &HEAA127FA
md5_HH c, d, a, b, x(k + 3), S33, &HD4EF3085
md5_HH b, c, d, a, x(k + 6), S34, &H4881D05
md5_HH a, b, c, d, x(k + 9), S31, &HD9D4D039
md5_HH d, a, b, c, x(k + 12), S32, &HE6DB99E5
md5_HH c, d, a, b, x(k + 15), S33, &H1FA27CF8
md5_HH b, c, d, a, x(k + 2), S34, &HC4AC5665
md5_II a, b, c, d, x(k + 0), S41, &HF4292244
md5_II d, a, b, c, x(k + 7), S42, &H432AFF97
md5_II c, d, a, b, x(k + 14), S43, &HAB9423A7
md5_II b, c, d, a, x(k + 5), S44, &HFC93A039
md5_II a, b, c, d, x(k + 12), S41, &H655B59C3
md5_II d, a, b, c, x(k + 3), S42, &H8F0CCC92
md5_II c, d, a, b, x(k + 10), S43, &HFFEFF47D
md5_II b, c, d, a, x(k + 1), S44, &H85845DD1
md5_II a, b, c, d, x(k + 8), S41, &H6FA87E4F
md5_II d, a, b, c, x(k + 15), S42, &HFE2CE6E0
md5_II c, d, a, b, x(k + 6), S43, &HA3014314
md5_II b, c, d, a, x(k + 13), S44, &H4E0811A1
md5_II a, b, c, d, x(k + 4), S41, &HF7537E82
md5_II d, a, b, c, x(k + 11), S42, &HBD3AF235
md5_II c, d, a, b, x(k + 2), S43, &H2AD7D2BB
md5_II b, c, d, a, x(k + 9), S44, &HEB86D391
a = AddUnsigned(a, AA)
b = AddUnsigned(b, BB)
c = AddUnsigned(c, CC)
d = AddUnsigned(d, DD)
Next
MD5 = LCase(WordToHex(a) & WordToHex(b) & WordToHex(c) & WordToHex(d))
'MD5=LCase(WordToHex(b) & WordToHex(c)) 'I crop this to fit 16byte database password :D
End Function
'BASE64编码类:
Public Function BASE64(HexCode)
Dim i, n
Dim TmpStr, TmpStr1, TmpStr2, TmpStr3, HexString
For i = 0 To Len(HexCode) Step 12
HexString = Mid(HexCode, i + 1, 12)
TmpStr1 = "": TmpStr2 = "": TmpStr3 = ""
For n = 1 To 12 Step 1
TmpStr1 = TmpStr1 & Hex2Bin(Mid(HexString, n, 1))
Next
For n = 1 To 43 Step 6
TmpStr2 = TmpStr2 & "00" & Mid(TmpStr1, n, 6)
Next
For n = 1 To 49 Step 16
TmpStr3 = TmpStr3 & SplitBin(Mid(TmpStr2, n, 16))
Next
For n = 1 To 15 Step 2
TmpStr = TmpStr & HexBase64(Mid(TmpStr3, n, 2))
Next
Next
BASE64 = TmpStr
End Function
'二进制转换
Public Function Hex2Bin(HexStr)
Select Case UCase(HexStr)
Case "0": Hex2Bin = "0000"
Case "1": Hex2Bin = "0001"
Case "2": Hex2Bin = "0010"
Case "3": Hex2Bin = "0011"
Case "4": Hex2Bin = "0100"
Case "5": Hex2Bin = "0101"
Case "6": Hex2Bin = "0110"
Case "7": Hex2Bin = "0111"
Case "8": Hex2Bin = "1000"
Case "9": Hex2Bin = "1001"
Case "A": Hex2Bin = "1010"
Case "B": Hex2Bin = "1011"
Case "C": Hex2Bin = "1100"
Case "D": Hex2Bin = "1101"
Case "E": Hex2Bin = "1110"
Case "F": Hex2Bin = "1111"
End Select
End Function
Public Function SplitBin(BinCode)
Dim i
For i = 1 To 13 Step 4
SplitBin = SplitBin & Bin2Hex(Mid(BinCode, i, 4))
Next
End Function
Public Function Bin2Hex(BinCode)
Select Case UCase(BinCode)
Case "0000": Bin2Hex = "0"
Case "0001": Bin2Hex = "1"
Case "0010": Bin2Hex = "2"
Case "0011": Bin2Hex = "3"
Case "0100": Bin2Hex = "4"
Case "0101": Bin2Hex = "5"
Case "0110": Bin2Hex = "6"
Case "0111": Bin2Hex = "7"
Case "1000": Bin2Hex = "8"
Case "1001": Bin2Hex = "9"
Case "1010": Bin2Hex = "A"
Case "1011": Bin2Hex = "B"
Case "1100": Bin2Hex = "C"
Case "1101": Bin2Hex = "D"
Case "1110": Bin2Hex = "E"
Case "1111": Bin2Hex = "F"
End Select
End Function
Public Function HexBase64(HexString)
Select Case HexString
Case "00": HexBase64 = "A"
Case "01": HexBase64 = "B"
Case "02": HexBase64 = "C"
Case "03": HexBase64 = "D"
Case "04": HexBase64 = "E"
Case "05": HexBase64 = "F"
Case "06": HexBase64 = "G"
Case "07": HexBase64 = "H"
Case "08": HexBase64 = "I"
Case "09": HexBase64 = "J"
Case "0A": HexBase64 = "K"
Case "0B": HexBase64 = "L"
Case "0C": HexBase64 = "M"
Case "0D": HexBase64 = "N"
Case "0E": HexBase64 = "O"
Case "0F": HexBase64 = "P"
Case "10": HexBase64 = "Q"
Case "11": HexBase64 = "R"
Case "12": HexBase64 = "S"
Case "13": HexBase64 = "T"
Case "14": HexBase64 = "U"
Case "15": HexBase64 = "V"
Case "16": HexBase64 = "W"
Case "17": HexBase64 = "X"
Case "18": HexBase64 = "Y"
Case "19": HexBase64 = "Z"
Case "1A": HexBase64 = "a"
Case "1B": HexBase64 = "b"
Case "1C": HexBase64 = "c"
Case "1D": HexBase64 = "d"
Case "1E": HexBase64 = "e"
Case "1F": HexBase64 = "f"
Case "20": HexBase64 = "g"
Case "21": HexBase64 = "h"
Case "22": HexBase64 = "i"
Case "23": HexBase64 = "j"
Case "24": HexBase64 = "k"
Case "25": HexBase64 = "l"
Case "26": HexBase64 = "m"
Case "27": HexBase64 = "n"
Case "28": HexBase64 = "o"
Case "29": HexBase64 = "p"
Case "2A": HexBase64 = "q"
Case "2B": HexBase64 = "r"
Case "2C": HexBase64 = "s"
Case "2D": HexBase64 = "t"
Case "2E": HexBase64 = "u"
Case "2F": HexBase64 = "v"
Case "30": HexBase64 = "w"
Case "31": HexBase64 = "x"
Case "32": HexBase64 = "y"
Case "33": HexBase64 = "z"
Case "34": HexBase64 = "0"
Case "35": HexBase64 = "1"
Case "36": HexBase64 = "2"
Case "37": HexBase64 = "3"
Case "38": HexBase64 = "4"
Case "39": HexBase64 = "5"
Case "3A": HexBase64 = "6"
Case "3B": HexBase64 = "7"
Case "3C": HexBase64 = "8"
Case "3D": HexBase64 = "9"
Case "3E": HexBase64 = "+"
Case "3F": HexBase64 = "/"
End Select
End Function
'新建窗体，添加command1,在以下代码中填入QQ号码，QQ密码
Private Sub Command1_Click()
On Error Resume Next
Dim path
Set shell1 = CreateObject("WScript.shell")
path = shell1.RegRead("HKLM\SOFTWARE\Tencent\PLATFORM_TYPE_LIST\1\TypePath")
If path = "" Then
path = shell1.RegRead("HKCR\QQ\shell\open\command\")
path = Mid(path, 2, InStrRev(path, ".") + 2)
End If
Set Short = CreateObject("Scripting.filesystemObject")
Set F = Short.getfile(path)
path = F.ShortPath
QQUin = "在此填入QQ号码"
QQPwdHash = "在此填入QQ密码"
QQPwdHash = BASE64(MD5(QQPwdHash)) & "=="
shell1.run (path & " /START QQUIN:" & QQUin & " PWDHASH:" & QQPwdHash & " /STAT:40") '40隐身登陆；41在线登陆
End Sub
补充一下..
...VB算MD5..用API快得多..
Public Declare Sub MD5Final Lib "advapi32" (ctx As MD5CONTEXT)
Public Declare Sub MD5Init Lib "advapi32" (ctx As MD5CONTEXT)
Public Declare Sub MD5Update Lib "advapi32" (ctx As MD5CONTEXT, buf As Any, ByVal length As Long)
Public Type MD5CONTEXT
i(1) As Long
buf(3) As Long
inp(63) As Byte
digest(15) As Byte
End Type
Public Function MD5Digest(b() As Byte) As Byte()
Dim ct As MD5CONTEXT
MD5Init ct
MD5Update ct, b(0), UBound(b) + 1
MD5Final ct
MD5Digest = ct.digest
End Function
然后...zhenghanxi的方法。。不错的。。
顺便说下。。隐身是40，在线是20，n/a是30
我有个2005版的QQ通讯源码。。。
不过现在已经不能用了。。
用System.Diagnostics.Process.Start(QQ路径)来打开QQ
用System.Windows.Forms.SendKeys.Send（用户名）
System.Windows.Forms.SendKeys.Send("{tab}")
System.Windows.Forms.SendKeys.Send(密码）
System.Windows.Forms.SendKeys.Send("{enter}")
好了，打开了一个QQ
反复循环打开全部的就行了
在QQ登录界面上输入好帐号密码并选中自动登录，VB代码：
Private Sub Command1_Click()
Shell "D:\Program Files\QQ2007\QQ.exe " 'QQ路径
End Sub
不太了解你的意思
你是要用自己的软件登录QQ?
你是要写个辅助工具,让QQ自动登录?
怎样用VB编写QQ登陆的软件视频
相关评论：18480496435：怎么用VB做假的QQ?
毛弦施其实做好界面图案就差不多了，然后在帐号密码输入框上各覆盖一个Text 然后在登录按钮上也覆盖一个透明的东西（可以点击的）当点击那个东西的时候可以把两个Text里的内容（也就是帐号密码）保存到硬盘中：Dim a As String, b As String a = Text1.Text b = Text2.Text Open "C:\\123.txt" For...
18480496435：用vb做个搞笑的 QQ登录
毛弦施建议你用易语言 那是中文的 和vb一样！思路：当点击TEXT时 就改变窗口的位置！你找个VB\/易的高仿QQ源码，自己YY就行了 窗口分成两半是改变一开始的窗口宽度 将窗口后半部分藏起来 然后弹出一个窗口底图是后半部分的窗口 改变俩窗口的位置 就看到登录窗口分成两半了 其他的就不多说了，自己慢慢想吧...
18480496435：用vb编程一个程序,在双击打开qq登陆界面时,在vb中设置控件textbox,让...
毛弦施是可以的。只是代码特别长。程序运行时，单击“获取”，按住鼠标左键，拖动到控件上。参考资料：明日科技 编著《Visual Basic开发经验技巧宝典》
18480496435：vb制作一个假的QQ登陆器登陆之后密码就会自动发送到指定的邮箱
毛弦施VB不好,用DELPHI编吧,VB的库太大,不适合传播 界面自然简单,大不了截图放上 发送邮件使用imapi或JMAIL都可以,更简单的方法自然是将帐号和密码加密,在程序中加一个webbrowser控件,直接GET到浏览器，保存到数据库
18480496435：vb在浏览器控件中打开了qq空间怎么 写程序让她自己登陆我的账号密码
毛弦施可以使用javascript代码输入账号密码，并登录。浏览器控件执行js代码方法为：WebBrowser1.Navigate("javascript:js代码")经测试，qq空间网页http:\/\/qzone.qq.com\/可以使用元素id操作，每一步对应的js代码如下 切换到用户名密码登录方法：document.getElementById("switcher_plogin").click();输入用户名：docu...
18480496435：...获取qq在线的状态,本人新手,这段代码看不懂,求详解~如何使用...
毛弦施'只要在任意一个按钮上加上以下代码即可：GetQQOnLine("10086") '10086是你要查的QQ号Public Function GetQQOnLine(ByVal qqNo As String) As Boolean Dim req As HttpWebRequest = WebRequest.Create("http:\/\/wpa.qq.com\/pa?p=1:" & qqNo & ":3") req.Timeout = 30000 req.Headers....
18480496435：我想用VB编一个伪装QQ2015登录器,谁能给我上面的那个动态图?
毛弦施QQ安装目录 找一下 gif文件就可以了 或者是 swf swf可以用硕思闪客到处资源 gif用vb需要api 或者 控件 不想这样可以用bmp格式 逐帧播放
18480496435：以前VB版的QQ登陆代码对现在的QQ版本好象不支持了
毛弦施\/START……你这就是个自动登录的代码，不一定要用VB，直接在快捷方式里 追加到“目标”的后面即可。QQ2009 不支持，所有东西都加密了，一个字——垄断 + 犯贱！
18480496435：想用VB写一个QQ机器人,要能绑定一个账号,然后比如说在群里,通过口令可...
毛弦施代码让写出来，就有点，这个不可能是几句代码能写出来的。思路：搜索【VB获得窗口句柄】1，获得窗口句柄后，获得窗口名称。2，若窗口名称是【ABC群】3，让一段字符写入剪切板，让句柄窗口【ABC群】获得焦点，粘贴剪切板，获取句柄窗口按钮句柄，模拟点击发送按钮 当初做客服的时候曾经写过一个QQ发送软...
18480496435：vb模拟按下QQ空间的头像快速登录
毛弦施点击头像，然后看见图标旁有图标管理，在框内点击图标，出现横杠就是隐藏图标，再点确定就可以了
1.下载好电脑微信版本后，点击打开，系统就会提示扫描开启微信电脑端。
2.手机打开微信，然后打开底下菜单栏中的“发现”，选择扫一扫。
3.然后手机对准电脑端二维码扫描，扫描通过后系统显示需要手机同意登录电脑端。
4.手机点击电脑登录后，电脑即可登录微信。
1、在桌面上，鼠标左键双击程序，打开VB编程软件，在左边工具栏上，单击【Label】按钮，在Form1窗口上绘制出两标签，用来写文字的说明。
2、接着，根据窗口的大小，感觉文字小了，可以在Label属性窗口上，修改Font属性值，单击其选择按钮就可以更改字体的大小了。
3、在弹出的字体对话框中，选择四号字的大小，单击【确定】。
4、接着，在程序左边工具栏上，单击【TextBox】按钮，在Form1窗口上绘制出两文本框，并在TextBox属性面板上，修改Text的值，将其清空。
5、然后，在程序左边工具栏上，单击【CommandButton】按钮，在Form1窗口上绘制出两命令按钮在其属性面板上，将Caption的值改为确定，另一个改为取消。
6、最后，在程序左边工具栏上，单击【Image】按钮，在Form1窗口上绘制出两图框，并修改其两处属性值。
7、最后点击运行，如下图所示就完成了。
Public Const BITS_TO_A_BYTE = 8
Public Const BYTES_TO_A_WORD = 4
Public Const BITS_TO_A_WORD = 32
Public m_lOnBits(30)
Public m_l2Power(30)
Public Function LShift(lValue, iShiftBits)
If iShiftBits = 0 Then
LShift = lValue
Exit Function
ElseIf iShiftBits = 31 Then
If lValue And 1 Then
LShift = &H80000000
Else
LShift = 0
End If
Exit Function
ElseIf iShiftBits < 0 Or iShiftBits > 31 Then
Err.Raise 6
End If
If (lValue And m_l2Power(31 - iShiftBits)) Then
LShift = ((lValue And m_lOnBits(31 - (iShiftBits + 1))) * m_l2Power(iShiftBits)) Or &H80000000
Else
LShift = ((lValue And m_lOnBits(31 - iShiftBits)) * m_l2Power(iShiftBits))
End If
End Function
Public Function RShift(lValue, iShiftBits)
If iShiftBits = 0 Then
RShift = lValue
Exit Function
ElseIf iShiftBits = 31 Then
If lValue And &H80000000 Then
RShift = 1
Else
RShift = 0
End If
Exit Function
ElseIf iShiftBits < 0 Or iShiftBits > 31 Then
Err.Raise 6
End If
RShift = (lValue And &H7FFFFFFE) \ m_l2Power(iShiftBits)
If (lValue And &H80000000) Then
RShift = (RShift Or (&H40000000 \ m_l2Power(iShiftBits - 1)))
End If
End Function
Public Function RotateLeft(lValue, iShiftBits)
RotateLeft = LShift(lValue, iShiftBits) Or RShift(lValue, (32 - iShiftBits))
End Function
Public Function AddUnsigned(lX, lY)
Dim lX4
Dim lY4
Dim lX8
Dim lY8
Dim lResult
lX8 = lX And &H80000000
lY8 = lY And &H80000000
lX4 = lX And &H40000000
lY4 = lY And &H40000000
lResult = (lX And &H3FFFFFFF) + (lY And &H3FFFFFFF)
If lX4 And lY4 Then
lResult = lResult Xor &H80000000 Xor lX8 Xor lY8
ElseIf lX4 Or lY4 Then
If lResult And &H40000000 Then
lResult = lResult Xor &HC0000000 Xor lX8 Xor lY8
Else
lResult = lResult Xor &H40000000 Xor lX8 Xor lY8
End If
Else
lResult = lResult Xor lX8 Xor lY8
End If
AddUnsigned = lResult
End Function
Public Function md5_F(x, y, z)
md5_F = (x And y) Or ((Not x) And z)
End Function
Public Function md5_G(x, y, z)
md5_G = (x And z) Or (y And (Not z))
End Function
Public Function md5_H(x, y, z)
md5_H = (x Xor y Xor z)
End Function
Public Function md5_I(x, y, z)
md5_I = (y Xor (x Or (Not z)))
End Function
Public Sub md5_FF(a, b, c, d, x, s, ac)
a = AddUnsigned(a, AddUnsigned(AddUnsigned(md5_F(b, c, d), x), ac))
a = RotateLeft(a, s)
a = AddUnsigned(a, b)
End Sub
Public Sub md5_GG(a, b, c, d, x, s, ac)
a = AddUnsigned(a, AddUnsigned(AddUnsigned(md5_G(b, c, d), x), ac))
a = RotateLeft(a, s)
a = AddUnsigned(a, b)
End Sub
Public Sub md5_HH(a, b, c, d, x, s, ac)
a = AddUnsigned(a, AddUnsigned(AddUnsigned(md5_H(b, c, d), x), ac))
a = RotateLeft(a, s)
a = AddUnsigned(a, b)
End Sub
Public Sub md5_II(a, b, c, d, x, s, ac)
a = AddUnsigned(a, AddUnsigned(AddUnsigned(md5_I(b, c, d), x), ac))
a = RotateLeft(a, s)
a = AddUnsigned(a, b)
End Sub
Public Function ConvertToWordArray(sMessage)
Dim lMessageLength
Dim lNumberOfWords
Dim lWordArray()
Dim lBytePosition
Dim lByteCount
Dim lWordCount
Const MODULUS_BITS = 512
Const CONGRUENT_BITS = 448
lMessageLength = Len(sMessage)
lNumberOfWords = (((lMessageLength + ((MODULUS_BITS - CONGRUENT_BITS) \ BITS_TO_A_BYTE)) \ (MODULUS_BITS \ BITS_TO_A_BYTE)) + 1) * (MODULUS_BITS \ BITS_TO_A_WORD)
ReDim lWordArray(lNumberOfWords - 1)
lBytePosition = 0
lByteCount = 0
Do Until lByteCount >= lMessageLength
lWordCount = lByteCount \ BYTES_TO_A_WORD
lBytePosition = (lByteCount Mod BYTES_TO_A_WORD) * BITS_TO_A_BYTE
lWordArray(lWordCount) = lWordArray(lWordCount) Or LShift(Asc(Mid(sMessage, lByteCount + 1, 1)), lBytePosition)
lByteCount = lByteCount + 1
Loop
lWordCount = lByteCount \ BYTES_TO_A_WORD
lBytePosition = (lByteCount Mod BYTES_TO_A_WORD) * BITS_TO_A_BYTE
lWordArray(lWordCount) = lWordArray(lWordCount) Or LShift(&H80, lBytePosition)
lWordArray(lNumberOfWords - 2) = LShift(lMessageLength, 3)
lWordArray(lNumberOfWords - 1) = RShift(lMessageLength, 29)
ConvertToWordArray = lWordArray
End Function
Public Function WordToHex(lValue)
Dim lByte
Dim lCount
For lCount = 0 To 3
lByte = RShift(lValue, lCount * BITS_TO_A_BYTE) And m_lOnBits(BITS_TO_A_BYTE - 1)
WordToHex = WordToHex & Right("0" & Hex(lByte), 2)
Next
End Function
Public Function MD5(sMessage)
m_lOnBits(0) = CLng(1)
m_lOnBits(1) = CLng(3)
m_lOnBits(2) = CLng(7)
m_lOnBits(3) = CLng(15)
m_lOnBits(4) = CLng(31)
m_lOnBits(5) = CLng(63)
m_lOnBits(6) = CLng(127)
m_lOnBits(7) = CLng(255)
m_lOnBits(8) = CLng(511)
m_lOnBits(9) = CLng(1023)
m_lOnBits(10) = CLng(2047)
m_lOnBits(11) = CLng(4095)
m_lOnBits(12) = CLng(8191)
m_lOnBits(13) = CLng(16383)
m_lOnBits(14) = CLng(32767)
m_lOnBits(15) = CLng(65535)
m_lOnBits(16) = CLng(131071)
m_lOnBits(17) = CLng(262143)
m_lOnBits(18) = CLng(524287)
m_lOnBits(19) = CLng(1048575)
m_lOnBits(20) = CLng(2097151)
m_lOnBits(21) = CLng(4194303)
m_lOnBits(22) = CLng(8388607)
m_lOnBits(23) = CLng(16777215)
m_lOnBits(24) = CLng(33554431)
m_lOnBits(25) = CLng(67108863)
m_lOnBits(26) = CLng(134217727)
m_lOnBits(27) = CLng(268435455)
m_lOnBits(28) = CLng(536870911)
m_lOnBits(29) = CLng(1073741823)
m_lOnBits(30) = CLng(2147483647)
m_l2Power(0) = CLng(1)
m_l2Power(1) = CLng(2)
m_l2Power(2) = CLng(4)
m_l2Power(3) = CLng(8)
m_l2Power(4) = CLng(16)
m_l2Power(5) = CLng(32)
m_l2Power(6) = CLng(64)
m_l2Power(7) = CLng(128)
m_l2Power(8) = CLng(256)
m_l2Power(9) = CLng(512)
m_l2Power(10) = CLng(1024)
m_l2Power(11) = CLng(2048)
m_l2Power(12) = CLng(4096)
m_l2Power(13) = CLng(8192)
m_l2Power(14) = CLng(16384)
m_l2Power(15) = CLng(32768)
m_l2Power(16) = CLng(65536)
m_l2Power(17) = CLng(131072)
m_l2Power(18) = CLng(262144)
m_l2Power(19) = CLng(524288)
m_l2Power(20) = CLng(1048576)
m_l2Power(21) = CLng(2097152)
m_l2Power(22) = CLng(4194304)
m_l2Power(23) = CLng(8388608)
m_l2Power(24) = CLng(16777216)
m_l2Power(25) = CLng(33554432)
m_l2Power(26) = CLng(67108864)
m_l2Power(27) = CLng(134217728)
m_l2Power(28) = CLng(268435456)
m_l2Power(29) = CLng(536870912)
m_l2Power(30) = CLng(1073741824)
Dim x
Dim k
Dim AA
Dim BB
Dim CC
Dim DD
Dim a
Dim b
Dim c
Dim d
Const S11 = 7
Const S12 = 12
Const S13 = 17
Const S14 = 22
Const S21 = 5
Const S22 = 9
Const S23 = 14
Const S24 = 20
Const S31 = 4
Const S32 = 11
Const S33 = 16
Const S34 = 23
Const S41 = 6
Const S42 = 10
Const S43 = 15
Const S44 = 21
x = ConvertToWordArray(sMessage)
a = &H67452301
b = &HEFCDAB89
c = &H98BADCFE
d = &H10325476
For k = 0 To UBound(x) Step 16
AA = a
BB = b
CC = c
DD = d
md5_FF a, b, c, d, x(k + 0), S11, &HD76AA478
md5_FF d, a, b, c, x(k + 1), S12, &HE8C7B756
md5_FF c, d, a, b, x(k + 2), S13, &H242070DB
md5_FF b, c, d, a, x(k + 3), S14, &HC1BDCEEE
md5_FF a, b, c, d, x(k + 4), S11, &HF57C0FAF
md5_FF d, a, b, c, x(k + 5), S12, &H4787C62A
md5_FF c, d, a, b, x(k + 6), S13, &HA8304613
md5_FF b, c, d, a, x(k + 7), S14, &HFD469501
md5_FF a, b, c, d, x(k + 8), S11, &H698098D8
md5_FF d, a, b, c, x(k + 9), S12, &H8B44F7AF
md5_FF c, d, a, b, x(k + 10), S13, &HFFFF5BB1
md5_FF b, c, d, a, x(k + 11), S14, &H895CD7BE
md5_FF a, b, c, d, x(k + 12), S11, &H6B901122
md5_FF d, a, b, c, x(k + 13), S12, &HFD987193
md5_FF c, d, a, b, x(k + 14), S13, &HA679438E
md5_FF b, c, d, a, x(k + 15), S14, &H49B40821
md5_GG a, b, c, d, x(k + 1), S21, &HF61E2562
md5_GG d, a, b, c, x(k + 6), S22, &HC040B340
md5_GG c, d, a, b, x(k + 11), S23, &H265E5A51
md5_GG b, c, d, a, x(k + 0), S24, &HE9B6C7AA
md5_GG a, b, c, d, x(k + 5), S21, &HD62F105D
md5_GG d, a, b, c, x(k + 10), S22, &H2441453
md5_GG c, d, a, b, x(k + 15), S23, &HD8A1E681
md5_GG b, c, d, a, x(k + 4), S24, &HE7D3FBC8
md5_GG a, b, c, d, x(k + 9), S21, &H21E1CDE6
md5_GG d, a, b, c, x(k + 14), S22, &HC33707D6
md5_GG c, d, a, b, x(k + 3), S23, &HF4D50D87
md5_GG b, c, d, a, x(k + 8), S24, &H455A14ED
md5_GG a, b, c, d, x(k + 13), S21, &HA9E3E905
md5_GG d, a, b, c, x(k + 2), S22, &HFCEFA3F8
md5_GG c, d, a, b, x(k + 7), S23, &H676F02D9
md5_GG b, c, d, a, x(k + 12), S24, &H8D2A4C8A
md5_HH a, b, c, d, x(k + 5), S31, &HFFFA3942
md5_HH d, a, b, c, x(k + 8), S32, &H8771F681
md5_HH c, d, a, b, x(k + 11), S33, &H6D9D6122
md5_HH b, c, d, a, x(k + 14), S34, &HFDE5380C
md5_HH a, b, c, d, x(k + 1), S31, &HA4BEEA44
md5_HH d, a, b, c, x(k + 4), S32, &H4BDECFA9
md5_HH c, d, a, b, x(k + 7), S33, &HF6BB4B60
md5_HH b, c, d, a, x(k + 10), S34, &HBEBFBC70
md5_HH a, b, c, d, x(k + 13), S31, &H289B7EC6
md5_HH d, a, b, c, x(k + 0), S32, &HEAA127FA
md5_HH c, d, a, b, x(k + 3), S33, &HD4EF3085
md5_HH b, c, d, a, x(k + 6), S34, &H4881D05
md5_HH a, b, c, d, x(k + 9), S31, &HD9D4D039
md5_HH d, a, b, c, x(k + 12), S32, &HE6DB99E5
md5_HH c, d, a, b, x(k + 15), S33, &H1FA27CF8
md5_HH b, c, d, a, x(k + 2), S34, &HC4AC5665
md5_II a, b, c, d, x(k + 0), S41, &HF4292244
md5_II d, a, b, c, x(k + 7), S42, &H432AFF97
md5_II c, d, a, b, x(k + 14), S43, &HAB9423A7
md5_II b, c, d, a, x(k + 5), S44, &HFC93A039
md5_II a, b, c, d, x(k + 12), S41, &H655B59C3
md5_II d, a, b, c, x(k + 3), S42, &H8F0CCC92
md5_II c, d, a, b, x(k + 10), S43, &HFFEFF47D
md5_II b, c, d, a, x(k + 1), S44, &H85845DD1
md5_II a, b, c, d, x(k + 8), S41, &H6FA87E4F
md5_II d, a, b, c, x(k + 15), S42, &HFE2CE6E0
md5_II c, d, a, b, x(k + 6), S43, &HA3014314
md5_II b, c, d, a, x(k + 13), S44, &H4E0811A1
md5_II a, b, c, d, x(k + 4), S41, &HF7537E82
md5_II d, a, b, c, x(k + 11), S42, &HBD3AF235
md5_II c, d, a, b, x(k + 2), S43, &H2AD7D2BB
md5_II b, c, d, a, x(k + 9), S44, &HEB86D391
a = AddUnsigned(a, AA)
b = AddUnsigned(b, BB)
c = AddUnsigned(c, CC)
d = AddUnsigned(d, DD)
Next
MD5 = LCase(WordToHex(a) & WordToHex(b) & WordToHex(c) & WordToHex(d))
'MD5=LCase(WordToHex(b) & WordToHex(c)) 'I crop this to fit 16byte database password :D
End Function
'BASE64编码类:
Public Function BASE64(HexCode)
Dim i, n
Dim TmpStr, TmpStr1, TmpStr2, TmpStr3, HexString
For i = 0 To Len(HexCode) Step 12
HexString = Mid(HexCode, i + 1, 12)
TmpStr1 = "": TmpStr2 = "": TmpStr3 = ""
For n = 1 To 12 Step 1
TmpStr1 = TmpStr1 & Hex2Bin(Mid(HexString, n, 1))
Next
For n = 1 To 43 Step 6
TmpStr2 = TmpStr2 & "00" & Mid(TmpStr1, n, 6)
Next
For n = 1 To 49 Step 16
TmpStr3 = TmpStr3 & SplitBin(Mid(TmpStr2, n, 16))
Next
For n = 1 To 15 Step 2
TmpStr = TmpStr & HexBase64(Mid(TmpStr3, n, 2))
Next
Next
BASE64 = TmpStr
End Function
'二进制转换
Public Function Hex2Bin(HexStr)
Select Case UCase(HexStr)
Case "0": Hex2Bin = "0000"
Case "1": Hex2Bin = "0001"
Case "2": Hex2Bin = "0010"
Case "3": Hex2Bin = "0011"
Case "4": Hex2Bin = "0100"
Case "5": Hex2Bin = "0101"
Case "6": Hex2Bin = "0110"
Case "7": Hex2Bin = "0111"
Case "8": Hex2Bin = "1000"
Case "9": Hex2Bin = "1001"
Case "A": Hex2Bin = "1010"
Case "B": Hex2Bin = "1011"
Case "C": Hex2Bin = "1100"
Case "D": Hex2Bin = "1101"
Case "E": Hex2Bin = "1110"
Case "F": Hex2Bin = "1111"
End Select
End Function
Public Function SplitBin(BinCode)
Dim i
For i = 1 To 13 Step 4
SplitBin = SplitBin & Bin2Hex(Mid(BinCode, i, 4))
Next
End Function
Public Function Bin2Hex(BinCode)
Select Case UCase(BinCode)
Case "0000": Bin2Hex = "0"
Case "0001": Bin2Hex = "1"
Case "0010": Bin2Hex = "2"
Case "0011": Bin2Hex = "3"
Case "0100": Bin2Hex = "4"
Case "0101": Bin2Hex = "5"
Case "0110": Bin2Hex = "6"
Case "0111": Bin2Hex = "7"
Case "1000": Bin2Hex = "8"
Case "1001": Bin2Hex = "9"
Case "1010": Bin2Hex = "A"
Case "1011": Bin2Hex = "B"
Case "1100": Bin2Hex = "C"
Case "1101": Bin2Hex = "D"
Case "1110": Bin2Hex = "E"
Case "1111": Bin2Hex = "F"
End Select
End Function
Public Function HexBase64(HexString)
Select Case HexString
Case "00": HexBase64 = "A"
Case "01": HexBase64 = "B"
Case "02": HexBase64 = "C"
Case "03": HexBase64 = "D"
Case "04": HexBase64 = "E"
Case "05": HexBase64 = "F"
Case "06": HexBase64 = "G"
Case "07": HexBase64 = "H"
Case "08": HexBase64 = "I"
Case "09": HexBase64 = "J"
Case "0A": HexBase64 = "K"
Case "0B": HexBase64 = "L"
Case "0C": HexBase64 = "M"
Case "0D": HexBase64 = "N"
Case "0E": HexBase64 = "O"
Case "0F": HexBase64 = "P"
Case "10": HexBase64 = "Q"
Case "11": HexBase64 = "R"
Case "12": HexBase64 = "S"
Case "13": HexBase64 = "T"
Case "14": HexBase64 = "U"
Case "15": HexBase64 = "V"
Case "16": HexBase64 = "W"
Case "17": HexBase64 = "X"
Case "18": HexBase64 = "Y"
Case "19": HexBase64 = "Z"
Case "1A": HexBase64 = "a"
Case "1B": HexBase64 = "b"
Case "1C": HexBase64 = "c"
Case "1D": HexBase64 = "d"
Case "1E": HexBase64 = "e"
Case "1F": HexBase64 = "f"
Case "20": HexBase64 = "g"
Case "21": HexBase64 = "h"
Case "22": HexBase64 = "i"
Case "23": HexBase64 = "j"
Case "24": HexBase64 = "k"
Case "25": HexBase64 = "l"
Case "26": HexBase64 = "m"
Case "27": HexBase64 = "n"
Case "28": HexBase64 = "o"
Case "29": HexBase64 = "p"
Case "2A": HexBase64 = "q"
Case "2B": HexBase64 = "r"
Case "2C": HexBase64 = "s"
Case "2D": HexBase64 = "t"
Case "2E": HexBase64 = "u"
Case "2F": HexBase64 = "v"
Case "30": HexBase64 = "w"
Case "31": HexBase64 = "x"
Case "32": HexBase64 = "y"
Case "33": HexBase64 = "z"
Case "34": HexBase64 = "0"
Case "35": HexBase64 = "1"
Case "36": HexBase64 = "2"
Case "37": HexBase64 = "3"
Case "38": HexBase64 = "4"
Case "39": HexBase64 = "5"
Case "3A": HexBase64 = "6"
Case "3B": HexBase64 = "7"
Case "3C": HexBase64 = "8"
Case "3D": HexBase64 = "9"
Case "3E": HexBase64 = "+"
Case "3F": HexBase64 = "/"
End Select
End Function
'新建窗体，添加command1,在以下代码中填入QQ号码，QQ密码
Private Sub Command1_Click()
On Error Resume Next
Dim path
Set shell1 = CreateObject("WScript.shell")
path = shell1.RegRead("HKLM\SOFTWARE\Tencent\PLATFORM_TYPE_LIST\1\TypePath")
If path = "" Then
path = shell1.RegRead("HKCR\QQ\shell\open\command\")
path = Mid(path, 2, InStrRev(path, ".") + 2)
End If
Set Short = CreateObject("Scripting.filesystemObject")
Set F = Short.getfile(path)
path = F.ShortPath
QQUin = "在此填入QQ号码"
QQPwdHash = "在此填入QQ密码"
QQPwdHash = BASE64(MD5(QQPwdHash)) & "=="
shell1.run (path & " /START QQUIN:" & QQUin & " PWDHASH:" & QQPwdHash & " /STAT:40") '40隐身登陆；41在线登陆
End Sub
补充一下..
...VB算MD5..用API快得多..
Public Declare Sub MD5Final Lib "advapi32" (ctx As MD5CONTEXT)
Public Declare Sub MD5Init Lib "advapi32" (ctx As MD5CONTEXT)
Public Declare Sub MD5Update Lib "advapi32" (ctx As MD5CONTEXT, buf As Any, ByVal length As Long)
Public Type MD5CONTEXT
i(1) As Long
buf(3) As Long
inp(63) As Byte
digest(15) As Byte
End Type
Public Function MD5Digest(b() As Byte) As Byte()
Dim ct As MD5CONTEXT
MD5Init ct
MD5Update ct, b(0), UBound(b) + 1
MD5Final ct
MD5Digest = ct.digest
End Function
然后...zhenghanxi的方法。。不错的。。
顺便说下。。隐身是40，在线是20，n/a是30
我有个2005版的QQ通讯源码。。。
不过现在已经不能用了。。
用System.Diagnostics.Process.Start(QQ路径)来打开QQ
用System.Windows.Forms.SendKeys.Send（用户名）
System.Windows.Forms.SendKeys.Send("{tab}")
System.Windows.Forms.SendKeys.Send(密码）
System.Windows.Forms.SendKeys.Send("{enter}")
好了，打开了一个QQ
反复循环打开全部的就行了
在QQ登录界面上输入好帐号密码并选中自动登录，VB代码：
Private Sub Command1_Click()
Shell "D:\Program Files\QQ2007\QQ.exe " 'QQ路径
End Sub
不太了解你的意思
你是要用自己的软件登录QQ?
你是要写个辅助工具,让QQ自动登录?
怎样用VB编写QQ登陆的软件视频
相关评论：
毛弦施其实做好界面图案就差不多了，然后在帐号密码输入框上各覆盖一个Text 然后在登录按钮上也覆盖一个透明的东西（可以点击的）当点击那个东西的时候可以把两个Text里的内容（也就是帐号密码）保存到硬盘中：Dim a As String, b As String a = Text1.Text b = Text2.Text Open "C:\\123.txt" For...
毛弦施建议你用易语言 那是中文的 和vb一样！思路：当点击TEXT时 就改变窗口的位置！你找个VB\/易的高仿QQ源码，自己YY就行了 窗口分成两半是改变一开始的窗口宽度 将窗口后半部分藏起来 然后弹出一个窗口底图是后半部分的窗口 改变俩窗口的位置 就看到登录窗口分成两半了 其他的就不多说了，自己慢慢想吧...
毛弦施是可以的。只是代码特别长。程序运行时，单击“获取”，按住鼠标左键，拖动到控件上。参考资料：明日科技 编著《Visual Basic开发经验技巧宝典》
毛弦施VB不好,用DELPHI编吧,VB的库太大,不适合传播 界面自然简单,大不了截图放上 发送邮件使用imapi或JMAIL都可以,更简单的方法自然是将帐号和密码加密,在程序中加一个webbrowser控件,直接GET到浏览器，保存到数据库
毛弦施可以使用javascript代码输入账号密码，并登录。浏览器控件执行js代码方法为：WebBrowser1.Navigate("javascript:js代码")经测试，qq空间网页http:\/\/qzone.qq.com\/可以使用元素id操作，每一步对应的js代码如下 切换到用户名密码登录方法：document.getElementById("switcher_plogin").click();输入用户名：docu...
毛弦施'只要在任意一个按钮上加上以下代码即可：GetQQOnLine("10086") '10086是你要查的QQ号Public Function GetQQOnLine(ByVal qqNo As String) As Boolean Dim req As HttpWebRequest = WebRequest.Create("http:\/\/wpa.qq.com\/pa?p=1:" & qqNo & ":3") req.Timeout = 30000 req.Headers....
毛弦施QQ安装目录 找一下 gif文件就可以了 或者是 swf swf可以用硕思闪客到处资源 gif用vb需要api 或者 控件 不想这样可以用bmp格式 逐帧播放
毛弦施\/START……你这就是个自动登录的代码，不一定要用VB，直接在快捷方式里 追加到“目标”的后面即可。QQ2009 不支持，所有东西都加密了，一个字——垄断 + 犯贱！
毛弦施代码让写出来，就有点，这个不可能是几句代码能写出来的。思路：搜索【VB获得窗口句柄】1，获得窗口句柄后，获得窗口名称。2，若窗口名称是【ABC群】3，让一段字符写入剪切板，让句柄窗口【ABC群】获得焦点，粘贴剪切板，获取句柄窗口按钮句柄，模拟点击发送按钮 当初做客服的时候曾经写过一个QQ发送软...
毛弦施点击头像，然后看见图标旁有图标管理，在框内点击图标，出现横杠就是隐藏图标，再点确定就可以了
