From 2c9c6cfc08c41c7d7e7ca257c57adcb09d333d52 Mon Sep 17 00:00:00 2001 From: j502647092 Date: Sat, 27 Jun 2015 11:21:25 +0800 Subject: [PATCH] =?UTF-8?q?=E6=9B=B4=E6=96=B0=E8=A7=A6=E5=B1=8F=E7=89=88?= =?UTF-8?q?=E7=99=BB=E5=BD=95=E6=A8=A1=E5=9D=97...?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit Signed-off-by: j502647092 --- Frm_Main.frm | 287 ++++++++++++++++++++++++++++++++++++++----- 手机说说发表工具.RES | Bin 0 -> 43544 bytes 手机说说发表工具.vbp | 5 +- 手机说说发表工具.vbw | 7 +- 4 files changed, 266 insertions(+), 33 deletions(-) create mode 100644 手机说说发表工具.RES diff --git a/Frm_Main.frm b/Frm_Main.frm index 6b2a2fe..d8d84ce 100644 --- a/Frm_Main.frm +++ b/Frm_Main.frm @@ -11,7 +11,6 @@ Begin VB.Form Frm_Main MinButton = 0 'False ScaleHeight = 3000 ScaleWidth = 4995 - ShowInTaskbar = 0 'False StartUpPosition = 2 'Ļ Begin ֻ˵˵.XmlHttp XmlHttp Height = 240 @@ -39,6 +38,55 @@ Begin VB.Form Frm_Main _ExtentX = 8811 _ExtentY = 5292 TabBt = "$¼||$֤||$||#||#ֻ˵˵" + Begin ֻ˵˵.TzCheck LoginType + Height = 300 + Index = 1 + Left = 2985 + Tag = "1" + Top = 1725 + WhatsThisHelpID = 2985 + Width = 1200 + _ExtentX = 2117 + _ExtentY = 529 + Caption = "3G 汾" + BackColor = 8421504 + StartColor = 8421504 + FinshColor = 12632256 + BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} + Name = "" + Size = 9 + Charset = 134 + Weight = 400 + Underline = 0 'False + Italic = 0 'False + Strikethrough = 0 'False + EndProperty + End + Begin ֻ˵˵.TzCheck LoginType + Height = 300 + Index = 0 + Left = 1680 + Tag = "1" + Top = 1725 + WhatsThisHelpID = 1680 + Width = 1200 + _ExtentX = 2117 + _ExtentY = 529 + Caption = " 汾" + BackColor = 8421504 + StartColor = 8421504 + FinshColor = 12632256 + BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} + Name = "" + Size = 9 + Charset = 134 + Weight = 400 + Underline = 0 'False + Italic = 0 'False + Strikethrough = 0 'False + EndProperty + Value = 1 + End Begin ֻ˵˵.TzButton clear Height = 360 Left = 2.00000e5 @@ -111,7 +159,7 @@ Begin VB.Form Frm_Main WhatsThisHelpID = 150 Width = 4680 End - Begin VB.TextBox vc + Begin VB.TextBox vcT Appearance = 0 'Flat BorderStyle = 0 'None Height = 250 @@ -156,7 +204,7 @@ Begin VB.Form Frm_Main PasswordChar = "*" TabIndex = 2 Tag = "1" - Top = 1410 + Top = 1335 WhatsThisHelpID = 1684 Width = 2500 End @@ -167,7 +215,7 @@ Begin VB.Form Frm_Main Left = 1684 TabIndex = 1 Tag = "1" - Top = 990 + Top = 915 WhatsThisHelpID = 1684 Width = 2500 End @@ -198,15 +246,15 @@ Begin VB.Form Frm_Main Height = 405 Left = 1605 Tag = "1" - Top = 1950 + Top = 2130 WhatsThisHelpID = 1605 Width = 1785 _ExtentX = 3149 _ExtentY = 714 Caption = "¼ֻQQ" - BackColor = 49152 - StartColor = 49152 - FinshColor = 65280 + BackColor = 32768 + StartColor = 32768 + FinshColor = 49152 BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "" Size = 9 @@ -217,6 +265,28 @@ Begin VB.Form Frm_Main Strikethrough = 0 'False EndProperty End + Begin VB.Label Label5 + AutoSize = -1 'True + BackStyle = 0 'Transparent + Caption = "¼ģʽ" + BeginProperty Font + Name = "΢ź" + Size = 10.5 + Charset = 134 + Weight = 400 + Underline = 0 'False + Italic = 0 'False + Strikethrough = 0 'False + EndProperty + ForeColor = &H00FFFFFF& + Height = 300 + Left = 810 + TabIndex = 10 + Tag = "1" + Top = 1710 + WhatsThisHelpID = 810 + Width = 840 + End Begin VB.Label Label4 Appearance = 0 'Flat AutoSize = -1 'True @@ -298,6 +368,7 @@ Begin VB.Form Frm_Main Begin VB.Image vcimg Height = 600 Left = 2.00000e5 + MousePointer = 11 'Hourglass Tag = "2" Top = 810 Visible = 0 'False @@ -317,12 +388,13 @@ Begin VB.Form Frm_Main Italic = 0 'False Strikethrough = 0 'False EndProperty + ForeColor = &H00FFFFFF& Height = 300 - Left = 811 + Left = 810 TabIndex = 3 Tag = "1" - Top = 1380 - WhatsThisHelpID = 811 + Top = 1305 + WhatsThisHelpID = 810 Width = 750 End Begin VB.Label Label1 @@ -338,12 +410,13 @@ Begin VB.Form Frm_Main Italic = 0 'False Strikethrough = 0 'False EndProperty + ForeColor = &H00FFFFFF& Height = 300 - Left = 811 + Left = 810 TabIndex = 0 Tag = "1" - Top = 960 - WhatsThisHelpID = 811 + Top = 885 + WhatsThisHelpID = 810 Width = 750 End End @@ -357,12 +430,15 @@ Option Explicit Dim qq As String Dim pwd As String Dim sid As String +Dim sig As String Dim r_sid As String Dim nike As String Dim headpic As String Dim vcpic As String +Dim vc As String + Private Sub clear_Click() content = "" suffix = "" @@ -381,7 +457,15 @@ Private Sub Login_Click() If Len(username) = 0 Then MsgBox "QQ˺ţ", 0, "ʾ": Exit Sub If Len(password) = 0 Then MsgBox "QQ룡", 0, "ʾ": Exit Sub TzTab.TabID = 2 - Call Analysis(flogin(username, password)) + flogin username, password +End Sub + +Private Sub LoginType_Click(Index As Integer) + Dim i As Long + For i = LoginType.LBound To LoginType.UBound + LoginType(i).Value = UnCheck + Next + LoginType(Index).Value = Check End Sub Private Sub username_KeyPress(KeyAscii As Integer) @@ -396,14 +480,12 @@ Private Sub send_Click() Dim tmp As String tmp = content.Text If Len(tmp) = 0 Then MsgBox "дݣ", 0, "ʾ": Exit Sub - + tmp = XmlHttp.URLEncode(tmp) Dim PostData, PostUrl As String PostUrl = "http://m.qzone.com/mood/publish_mood" PostData = "opr_type=publish_shuoshuo&res_uin=" & qq & "&content=" & tmp & "&richval=&lat=0&lon=0&lbsid=&issyncweibo=0&format=json&sid=" & sid & "&is_winphone=2&source_name=" & suffix - Dim strAlbum As String strAlbum = XmlHttp.PostData(PostUrl, PostData, ResponseBodyToText, , False) - If InStr(1, strAlbum, "ȵ¼") Then MsgBox strAlbum, 0, "˵˵ʧܣ" TzTab.TabID = 1 @@ -413,9 +495,14 @@ Private Sub send_Click() End Sub Private Sub submit_Click() - If Len(vc) = 0 Then MsgBox "֤룡", 0, "ʾ": Exit Sub + If Len(vcT) = 0 Then MsgBox "֤룡", 0, "ʾ": Exit Sub TzTab.TabID = 3 - Call Analysis(slogin(username, r_sid, vc)) + If LoginType(0).Value = UnCheck Then + Call Analysis(slogin(username, r_sid, vcT)) + Else + touchvc username, vcT + touchlogin username, password, vc + End If End Sub Public Function Analysis(ByVal strAlbum As String) @@ -444,13 +531,81 @@ Public Function Analysis(ByVal strAlbum As String) MsgBox arr(3), vbCritical, "½!" End Function +'http://check.ptlogin2.qzone.com/check?pt_tea=1&uin=502647092&appid=549000929 +'ptui_checkVC('1','0GIZj_RKBPvQ3Cg8N02-VZjcM9P55SmnmoKX8nAsHhDyh-pNqq1Uww**','\x00\x00\x00\x00\x1d\xf5\xc9\x34','','0'); +'http://captcha.qq.com/cap_union_show?captype=3&lang=2052&aid=549000929&uin=502647092&cap_cd=0GIZj_RKBPvQ3Cg8N02-VZjcM9P55SmnmoKX8nAsHhDyh-pNqq1Uww** + +'http://captcha.qq.com/getNewImgBySig?aid=549000929&uin=502647092&sig=ghT8AClEPgg7sccIyFHgiO0EK7k1pRXefWDtm0Grb2idFBN7U0yihlZliaAB7aXSASq_HgUxnUXwhlVsC6G5yEO-_VWBPJ4PNR0yx8_6usJE* +'http://captcha.qq.com/getimgbysig?aid=549000929&uin=502647092&sig=gxfRFOV1UOeuFWVd4ZPsM3i2BsAih4oTLuv8Ncs63d-MlWHe2sMnAdxeS7baUNi7h6OTVFqqzTgjhSdRzQDTT4swilNackk-kn7zXYYEB3FY* + +'http://captcha.qq.com/getQueSig?aid=549000929&uin=502647092&captype=2&sig=gxfRFOV1UOeuFWVd4ZPsM3i2BsAih4oTLuv8Ncs63d-MlWHe2sMnAdxeS7baUNi7h6OTVFqqzTgjhSdRzQDTT4swilNackk-kn7zXYYEB3FY*&0.1560081106144935 +'cap_setQue("",0);cap_showOption(""); cap_getCapBySig("gBLLRPu68q_0Uy9riC2SuXTKcw1AHNZjlmLz9Xyud6LlctgE_NCbO8GadL3eHGXLy3ko10JZRMFV4KHodcu-_3IgfMtsyBHIwjt9RxE6PgZk*"); +'http://captcha.qq.com/getimgbysig?aid=549000929&uin=502647092&sig=gBLLRPu68q_0Uy9riC2SuXTKcw1AHNZjlmLz9Xyud6LlctgE_NCbO8GadL3eHGXLy3ko10JZRMFV4KHodcu-_3IgfMtsyBHIwjt9RxE6PgZk* + +'http://captcha.qq.com/cap_union_verify?aid=549000929&uin=502647092&captype=2&ans=trmk&sig=gBLLRPu68q_0Uy9riC2SuXTKcw1AHNZjlmLz9Xyud6LlctgE_NCbO8GadL3eHGXLy3ko10JZRMFV4KHodcu-_3IgfMtsyBHIwjt9RxE6PgZk* +'cap_InnerCBVerify({rcode:5,randstr:"",sig:"",errmsg:"֤ʧܣԡ"}); + +'http://captcha.qq.com/cap_union_verify?aid=549000929&uin=502647092&captype=2&ans=bygr&sig=gZ0qcmFuJCSXEDjyg42a2Nf40zfvaxvGL-C7htPCyBYT7fPjbfCYXIMR8_4zuacRtl2hxuzNdHCK2FNsJmkLduIatiNcKddigTKem3hEbQ5w* +'cap_InnerCBVerify({rcode:0,randstr:"@LSJ",sig:"t02hJBI1AWHUY3IVkL65-2MEmwfNyxpWJkr1R8VZfMjyXwegZ2Fo_5RNRqBKMRCZ8pPh_nGKuAurRj6J0bZ-fzFID1IdhsdOD-a",errmsg:"֤ʧܣԡ"}); + +'http://ptlogin2.qzone.com/login?verifycode=@8HD&u=502647092&p=tmAR6MsWZUS1v6vJUQhKw9OUi7IjEWWpx0BUo4n39VhWE7dy14Co4AKGrb9ZP1oBSIwWY2OdXnjCqvmQYgL2xDFscjvuiQJ4L5ZQHtfiVIV-AyhjkIamgR90zhBznq8IpXDah2tW52UhqmjDOk0kHPUjg08JhHOrwU6h0pDknbfXJETwNjhMv01giTB73*ty4GDY1JhPsgpn6uuvlEDp6A__ _ + &pt_randsalt=0&ptlang=2052&low_login_enable=0&u1=http%3A%2F%2Fm.qzone.com%2Finfocenter%3Fg_f%3D&from_ui=1&fp=loginerroralert&device=2&aid=549000929&pt_ttype=1&pt_3rd_aid=0&ptredirect=1&h=1&g=1&pt_uistyle=9&pt_vcode_v1=1&pt_verifysession_v1=t02j2WOQ1sDfL05pk0HAo8FNM7_KzJyTkrS4zv8lxJbrJBoAeLsDLM3CmH9RWMNoEg69kx1zFOPE0ApvS8qUfKE-qe6kMck5pyJ& + +'ptuiCB('0','0','http://m.qzone.com/infocenter?g_f=&sid=Wh9SXy2ehSoykVA3sLGMLQvF+B+GtbgB1df5c9340201==','1','¼ɹ', '‮K'); + +'ptuiCB('4','2','','0','ҳڣԡ(679477272)', '502647092'); + +Public Function getsid(ByVal html As String) + Dim st, en + st = InStr(1, html, "sid=") + Len("sid=") + en = InStr(st, html, "'") - 1 + getsid = Mid(html, st, en - st) +End Function + +Public Function AnalysisVC(ByVal str As String, vc As String, sig As String) + Dim st, en + If str = "" Then Exit Function + st = InStr(1, str, "randstr:""") + Len("randstr:""") + en = InStr(st, str, """") + vc = Mid(str, st, en - st) + st = InStr(en, str, "sig:""") + Len("sig:""") + en = InStr(st, str, """") + sig = Mid(str, st, en - st) +End Function + +Public Function AnalysisLG(ByVal str As String) + Dim st, en, yml + If str = "" Then Exit Function + st = InStr(1, str, "ptuiCB(") + Len("ptuiCB(") + en = InStr(st, str, ");") - 2 + yml = Mid(str, st, en - st) + Dim arr() As String + arr = Split(yml, ",") + Select Case mids(arr(3)) + Case 1 + sid = getsid(arr(2)) + TzTab.TabID = 3 + Case Else + MsgBox yml, vbCritical, "¼ʧ!" + TzTab.TabID = 1 + End Select +End Function + Public Function flogin(ByVal qq As String, ByVal pwd As String) As String - Dim PostData, PostUrl, pmd5 As String - Dim MD5 As New clsMD5 - pmd5 = MD5.DigestStrToHexStr(password) - PostUrl = "http://pt.3g.qq.com/login?act=json&format=3" - PostData = "bid_code=qqchatLogin&qq=" + qq + "&pmd5=" + pmd5 + "&go_url=undefined" - flogin = mids(XmlHttp.PostData(PostUrl, PostData, ResponseBodyToText)) + If LoginType(0).Value = UnCheck Then + Dim PostData, PostUrl, pmd5 As String + Dim MD5 As New clsMD5 + pmd5 = MD5.DigestStrToHexStr(password) + PostUrl = "http://pt.3g.qq.com/login?act=json&format=3" + PostData = "bid_code=qqchatLogin&qq=" + qq + "&pmd5=" + pmd5 + "&go_url=undefined" + Analysis mids(XmlHttp.PostData(PostUrl, PostData, ResponseBodyToText)) + Else + If vc = "" Then + TzTab.TabID = 2 + Else + touchlogin qq, pwd, vc + End If + End If End Function Public Function slogin(ByVal qq As String, ByVal r_sid As String, ByVal vcode As String) @@ -460,14 +615,88 @@ Public Function slogin(ByVal qq As String, ByVal r_sid As String, ByVal vcode As slogin = mids(XmlHttp.PostData(PostUrl, PostData, ResponseBodyToText)) End Function -Private Sub TzTab_MouseMove(Button As Integer, Shift As Integer, X As Single, y As Single) +Public Function touchvc(ByVal qq As String, ByVal vcode As String) + Dim vcurl As String + vcurl = "http://captcha.qq.com/cap_union_verify?aid=549000929&uin=" + qq + "&captype=2&ans=" + vcode + "&sig=" + sig + AnalysisVC XmlHttp.GetData(vcurl, ResponseBodyToText), vc, sig + touchvc = vc +End Function + +Public Function touchlogin(ByVal qq As String, ByVal pwd As String, ByVal vc As String) + Dim loginurl As String + Dim pwdsc As String + pwdsc = Script(pwd, qq, vc) + loginurl = "http://ptlogin2.qzone.com/login?verifycode={vc}&u={qq}&p={pwdmd5}&pt_randsalt=0&ptlang=2052&low_login_enable=0&u1=http%3A%2F%2Fm.qzone.com%2Finfocenter%3Fg_f%3D&from_ui=1&fp=loginerroralert&device=2&aid=549000929&pt_ttype=1&pt_3rd_aid=0&ptredirect=1&h=1&g=1&pt_uistyle=9&pt_vcode_v1=1&pt_verifysession_v1={sig}" + loginurl = Replace(loginurl, "{vc}", vc) + loginurl = Replace(loginurl, "{qq}", qq) + loginurl = Replace(loginurl, "{sig}", sig) + loginurl = Replace(loginurl, "{pwdmd5}", Script(qq, pwd, vc)) + AnalysisLG XmlHttp.GetData(loginurl, ResponseBodyToText) +End Function + +Private Function Script(pwd As String, username As String, vc As String) As String + Dim obj As Object + Set obj = CreateObject("MSScriptControl.ScriptControl") + obj.AllowUI = True + obj.Language = "JavaScript" + Dim jstx As String + jstx = LoadResString(1) + obj.AddCode jstx + Script = obj.Eval("getEncryption('" & pwd & "','" & username & "','" & vc & "');") + Set obj = Nothing +End Function + +Private Sub TzTab_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Frm.hMove (Me.hWnd) End Sub -Private Sub vc_KeyPress(KeyAscii As Integer) - If KeyAscii = 13 Then submit_Click +Private Sub username_LostFocus() + If LoginType(0).Value = UnCheck Then Exit Sub + Dim Data As String + Data = XmlHttp.GetData("http://check.ptlogin2.qzone.com/check?pt_tea=1&uin=" + username + "&appid=549000929", ResponseBodyToText) + Data = getmid(Data) + Dim arr() As String + arr = Split(Data, ",") + If mids(arr(0)) = 0 Then vc = mids(arr(1)): sig = mids(arr(3)) Else vc = "" + If mids(arr(0)) = 1 Then + Dim sigurl As String + sigurl = "http://captcha.qq.com/cap_union_show?captype=3&lang=2052&aid=549000929&uin=" + username + "&cap_cd=" + mids(arr(1)) + 'Debug.Print sigurl + sig = getsig(XmlHttp.GetData(sigurl, ResponseBodyToText)) + 'Debug.Print sig + vcimg_Click + End If End Sub +Public Function getsig(ByVal html As String) + Dim st, en + st = InStr(1, html, "g_click_cap_sig=""") + Len("g_click_cap_sig=""") + en = InStr(st, html, """") + getsig = Mid(html, st, en - st) +End Function + +Public Function getnewsig(ByVal html As String) + Dim st, en + st = InStr(1, html, "cap_getCapBySig(""") + Len("cap_getCapBySig(""") + en = InStr(st, html, """") + getnewsig = Mid(html, st, en - st) +End Function + +Public Function getmid(strAlbum As String) As String + getmid = Mid(strAlbum, InStr(1, strAlbum, "(") + 1, InStr(1, strAlbum, ")") - 1) +End Function + Private Sub vcimg_Click() + If LoginType(0).Value = Check Then + Dim sigurl As String + sigurl = "http://captcha.qq.com/getQueSig?aid=549000929&uin=" + username + "&captype=2&sig=" + sig + sig = getnewsig(XmlHttp.GetData(sigurl, ResponseBodyToText)) + vcpic = "http://captcha.qq.com/getimgbysig?aid=549000929&uin=502647092&sig=" + sig + End If + Debug.Print vcpic vcimg.Picture = XmlHttp.LoadPicture(vcpic) End Sub + +Private Sub vcT_KeyPress(KeyAscii As Integer) + If KeyAscii = 13 Then submit_Click +End Sub diff --git a/手机说说发表工具.RES b/手机说说发表工具.RES new file mode 100644 index 0000000000000000000000000000000000000000..3776084d37d077d7dfe6534784c686dd9c5226e2 GIT binary patch literal 43544 zcmds=`*IXVmd1M{Ha7M#@P-Y-0u17gXghR4n89Eh+sp+sL?f`l!_AUxF0%H0_J#JJ zeVEzrm!FO@vns3AZF?p*76npQRp!Z)=YCFRWsgRq(GmUs```UvAFF@={a^9?-_+(` z_MiRhzvo8(^Yzc8$!JSZUXPxRUW^`%Uh31hy831G%V>ABH(DM=+ZXEdv)X^JzdP!& zr5^ozx!?O8h^I#H3uZule{^beXY|!*MXkOY{Uk`6g8Ec&UyK$;$2E5M?h%c=FnTvS zp>{mq8a>vhpY->IX7WN;ul1LCwU}t+6Z*ZHV8tAFgv~Mi=@726K3+zt574eXmd7=@VLDIXosv%N?q}5Uro-XYW7@CZlz6D5Pyg?YA_- zTa8HXkRy0uKGqnY6uz}A(eh)pJv}T_fyX`;orZHRL2-ddCX}d$n|W{ig?p*@w?iSpD=4? z`c8ZW{u|9^RkYkmoU@d+Fb@c=XG={QfJ3cMF(2CtsB>IY>f4;p5-rea^nW{H3NFN(6>A-?WYIQ z{Y+eYbfDu$1QYAY-An_$0{t$_C}s{ApH3Es8zVBMZ49sEMSUl;hr>>ejS6<03? zr0bR7qrIiRqitae@lnh=!#O4FpX$zM!aVFe+PXNpsNWy!=dAuNtBq~@xZq%a9wEo2 zeOpzJJR-5d7X{6%l>r}{JnsnD8r$+AuM*Ia$Xbeyiu=dYh_)OxSKf(-ZGRNLj23&M z-6_ezmSzS9JCcA`>US!|LFHV>qd$t0L#>g^or*SNK^txlzcw{0qru}>Y8&=L zp6dD1=$w8oiJuqs`;0!H9$nV&^ZJdQiN1eP+l3@YPo;Ti$Hnxsq|fK~sl}&@>H4(( zLc8ULt+Oq(6~G5uE?c$$N%H+;n$=Izg@>ZXmNW@z2#UVc7)QiIT4#y+E>ZsZ=yuUB zY)_0@^06h!SeRq7#yKK6mMqh3BiE4(^IZ~sh=9s*`xy885l10WZRb2cvD_%xoUd zjLE|TJfLTZ$Ki8$Q}n&0zI#*Vy`G{m#}dPk*F|?n3}=!Bq5W~$J|Zh5VTh{hqr0hJ z*(=NSL_Non59eP)Fg6m5>``8c@2@2>OG#5FhhVTF9O3IE`8Xn`VQe=9lNbu?`Z~3r zsC{VRMBIa;rv(w4h-~8}E-AK}D3;kw+4Xm-9ANc-P@eEiGW9~(zEZBWl_C$aj@OdS zx3bG+#fW;taK4-|c%?c2oaR72=m_nKPQ>-7!!>%`xsboXm(W;x-iEmEC0|@`Z@YU9B^LJ&C}p>p0BGVj@kN9 zRs#88!Nq|F~--WP?+n8x0<&W=7wdUiz|UJ+ONIQ%)`fOT_iYC+UT#;IQA zxPp3|D@hTrEbE%+g`UJ;JE`v;HG68>E{#B06OS}%=F#@r5P=V2)oU5)p8OsLs=kIp-Z~Psth@87r za;wN;q9xv9sAYzCX0R2pb8d&{Z$mp*v|6fKWo`sD?`Rf}Bngi0f<`r6%`^Yb5Rf#a zDBnTSY@e(lj=iCLT{Cb_IhICI4I*pj4mDMJm-Wlx+=FS_8I6d%*?5LEi8?Ml92=dK4K?+#KjgVT3G+SKA67_MDIs&@4z{G6 zU5w~CGE3kD-R>QHLPsKEZ|R#XzSekb1Be9|bcZ|zn-EnjV34J* z2~tEJj%&G>dECYoNMsz>|}` zC%`e!v%EMiw!}~sCo^+g{+{~R9I`dGeGfQbP`4VI&+HU0=bh)aDIFnxrZSnO7a6lO z650Jll7DCPdGZ@nQ@@r>W^S-PXHE}QRX@QxVF~Y=3Oeb2TjV`UAnr+yE|e6Z#h#$%d;kM)T)&46Q>w^b*PVJ41anJcnUdM2>Q6}=LNteMXGyCau2*cd=j?5?dc z{jtU11|A#9dS@v1iBtt`b7_f%j25OE5U>!X<&8Q-v@B_1ABpXBzvI$*tZDXL&^Ih& zdrZf?P^PrFRHwpHf@S#4&}HiZwX80^fzp*Q4OaBC%1-}|ykyYfIj(dWt! zqF6uDC%VTfWlIv+fG0nW{@>H=O*d%c_Q*8yNsEXj>fS`4(|Qv7n~rrqV)beL@H4G` zWCGLr;RRa#ur$;9;frdWvp)B!{L{YVdz4a!vYn_Q!L9mE?u7^VFiCp$P_~PUs`g}! zYDHOpEuNzV-Dm~d+LDurDo5rn`cWuBPGSq>N``$)Ylea8EzOVFvnD@D zxnuwvPk2)hCPgoM;WXZKJxSA|eS3<)s1y^b-X__G`+%KhtYx~dDl=*tqij0Y@ zuN)m;zp@`QFuz}PomUhymeCIHPwq=h;;KqsWkh<(vu48xJdk3z2K2RrS&YsOvYI>I zSLZn}V_I~pVR66CjaoX6e`c&KHA4_*kZ$V&IA zu4Ji23his~*Y?nsshCyRmiGAe3|Xp)=rU*eFlLuA)+b!423~2Iz#gt6eXehjidb{Gw2Y~MhHbXSyDk!V2X%?M;QXKy^?H( z<=)S@YurL_g0~?HWPo=?3EG$Q&roXpL9POZ`vgwNDo>FR?C|0Cc6~q-Y8#Kn;Lq(R z(F|yw?`F?!4f5XQz#_2n43W&5i_Vb4Q`WQ!Zxj~K@UhE$a^2Aop$PZt{;~VoRtlV- zYaXHDAtm-U_Ugnr=(ROEC>yo%7G1-iWPWa^nB7`te1@xjKn!n32HlU`zZAwXv#|I> z{K=e%Y>0Vy9XGgA+Nf^c$2iXI90dg3fd5k%H0^twDyXiVFra+RpvgF z_NuvM-Sebv=9?`7F0hsRXt;DthJEp5pljX&Ybal^LS`_w6K(w_(Y^e z-WApsnn97QrNE54jLhyZL!F%_NS@zTFy(!9xJF+~(&8Onj=udSKuFF+b!V)^jl`kQ z>yTldGM9EvnByPs1Oz0iYHj;+qy?eXDXhZE|ohw!ii5oJVul0Im z3|QBBrM(2Mr4yUcvyR?kbRzw{7u<5dJ=dMeSz_yamz*=_i1;d``BU99Eve>Y8sDzk zI)foEh8D<%schLOR|#$xQbe0)dTRua{GE6bGrOHeX6*<0gv!IMOohDe=#jg$Dq(e> z8A6`f%{1e+#M^Sl5rHzhn@QhT&ku_86gh_0HBU0+KP1R2sjlEPugqO`u6Pd?G`uM) zaZPn`Ezy$^mk#o!h+){nf=7l@d7L{Mr-Xc0Il^T0heXvc^(^O=84jc6R$r)9A47KT zV5S@>P%)>3?7!if@2k!YjsgSz$G?Jykb=l9gpNn>F%wmp~()AuZ?@YAh zl^zL>+5$l*<7poIe&9)tTK01k@mVpy%nMdFpfu~vZg(qXwQz)p;gdohSTDPx|4|XC z_w0Jbn%?Y-x+A+DaLrrW`iXY6A5Sg5)Zfs8vZXzO=UT=j@$Qx-#vamiAh*Y>1x1GF zUP^>{JH*F23Nv+>#eI!rD#d8irJ?kMExT?R*=kra%LuDAK_kC0gI)DJr^QY7ZeHuz z6KxpBvF1&|^L6bnW0Z*`H+yUPwXn0DwZz+w5&hVPO?$VObiCQqza+Gb=-+$8BK(JQ;gTr9o)XZD&3c*p{F!TGSV`ae0 zviI$_jF?-(h3Rc$eq(v{;g-)en`dbzW7(VGcFcQgza4aGz4@~$YGJWLeuLUX(!>sR z)N@2uBuANLF6YW$=rJ5%r_1mgTO}OFr@XVVoMKhD%Nos+ta(7wedI~?@u zxAlIkvbFED+Ar+GzmWEDvDZEN@!ksix_r;0<~w~@yj}CIQ&qj2u&pbtNK2`K;BSjw z`|`V*`#bq_ez)Y@@A$!=tRc2jrCbw9Ie(-2_p>55-s0yiLb%>-`7E^!37~KJ9!pWMc{crJMM1W9w8f~y*IqN*!9@bJjk%5ruY6#CkuX$o7+Lw7k z2|ePGmi;uvevdezA3bp3KDk}syT zEMpShz8Zp9$0W~F%lZtMBl1saUP8E5Qqu}z&I{>MN)tt;T z&g&Ph#gRL@j!iYj{jxQ823PC2^J1?XM<&RKnIF#bja|-bxw|3z6}2TYf1;tBg#smW zpZ3@t@Zz^~$y~?F_8hCrb7#D^dVF?0&U^bx31CMVW0mr2oZC6aL=jJ5Q~N@y5n*o_ z@2WV= z>cChQc^dAPyf-}>(*pDp6vMJLb_s?7zr%Za7 za<18oRjHc>w||BV*k?VBy~AVq1lE1A$R5+xYu_is&b52IY1r3qiq8|lXyyK#_GHWW zO^T5>Q#^Nn^w$&z#+yycqyAI+5%IDcb(VJC@j6RO&ORw&hBw~SXzXXPE#8#(jO|7mt(LHH zY8!9JtqE2>@r?E%M{vK)W8lTreHmfo_F70(aV{uR%Pq?JTOPV{Ki0}KGLO`^o@K1E zOjr_Iap&5;j9OBtk<>Ehp3C9}c7eC7pewl^mfRJbZz@{nQB8+$n)K!w{0)lV7kuxU zv>bQi6-GpdIH3(3T600l$&pLBaaNJ{A+raAnj*E8z7*IB<@c9OowjzzDRrDt$>(;o z6gcNo<)9;P-S_h~YUALZ^NXj6DqtKL#}BPWr5QSpYeD-e>7Q4rV|8hFUs8|B-z-UE z))YgZ*3YV>>{_b*UyuxJ$lh=0&e?SLa%#o(IaLN&AGn~t8~VAZ2!BQG>CHWQaWWP? z&*|xgAg}1|n*Q<*@M^lVs!yD-Ln|;?7t|$P@pMC2T-4_a`U__3dQL^+oc^xrE>YD5 zwc-q}GwOFupH~EJRnKX`oUWZFgSn z!2%rD^oeuq=tD1Bvk!?UrY*C$ochMeV&DNszztq9{)YbZo7137^9#C$x?sXRXbdec zDtdC|^_cFLC%Ul074qiuK+#XCCd7~BiGfjRa3#I2ThOCE1CZ9v_sf<@I;Yk?=(N6~ zya`|E7$EEyXNH!MSw3NTq37ckly8^bnG>Aj?OA-qiF9(!Jz0qpf;pBg;L{s@a{btU zSs(Hfc9r@Q@kzXE+0r{l*IgYho#wPURJ zbOnvxDuN@&*wrV$UmXVEzgHIiSf@StG_$C1vrNycf_&Kc2~?hGPh zY0cxw!90e}^P=uSeLZ`JG6V2atS9~hF4k6ZvVS+E8(#P47*DA?I~TAX6PHpC`XE^x zQ+iUoYYX&Cs*g-GXDoL3uM$J(H_?AXT9);XH@8^rw9Uqra0;#8;VWaL)e2UBat0f+SyHAYZ`O!tg}iq&$Yt3eds)-(ZIbWzbno=O*KU7T0pI`N zbJnQ^jnh6i@6CmWNQ_V2xtQoMP88=9L7#Bvv5*?`uBJkU+?Dv1gcngj%Q|C`?T_p` zkvAlENE`8s#Ff@_>;`fl`VmxPl@Ki}rEYzSyhnddyl6`{a-2`zcuy9c2owGe(V^6W zph1bxYGH@EdhkrVAS%L&K^MP&OSKs;P4uL+F{UB1i-rU>TAC8GfPQb(7TS62S!Wd7 z4GKe5pqO$k9W(sld01|zQPSKwd_MEerRH2)k8RO*r^X!2KYLlv*Og%`Iv$r*0yxL# zavijM4$tAU+te16mF(}6_2uuPGw8Qtt$=-WhOU82Q8M zVrK#)fkz(cdNq>I@$>mg?1E@#p*edCTHe%n!+wyAjyDM4H+xQ&(|g_AfyaKUpw{D? zO@B-U?EkN9a*j9o2QtYI-+~a7{(Yo&L*C+_As5JcjP#F|bl_bq%5}^7*E$wetd}$iGZBF+CTbf*PE4?_oLoCkNo~Jt=gF^)q|+<5R3KqRfX@IAB)JFz{8%OSgl_# z0K2+gzzSAbF95Tew$uxLRKKrPHHK=ty$WZyn&28WZ*mRlG?J1gmnTSIJmV0pJ_)n~7xXKJvjp7#i}=+LG=aZZk!x_lr@Jd6*qLga5@YK=?{%C$0T)lfd} z?CHrvUHQAhc%R3+imoURJRz>4$K1^;zgINNvd;~{i#|W=$sWI3HMpcVO@vSnd`cHL+|$7REt}x zP=2m=H3=evS?6`lge;J0EDpA@b2~YwBgK8VV=FgfEI}5%m_%dhuC@d@s$e zuq6`XRG09xNe6myVcU$+P~<`gZ7)-nw`xKH;m- zFg)>|elH~Md2gK~(a_2#qSBiKzPY*=&mN}Ogy;*u<47W&A?L9@hGK9;S|IN+(5 zBrR@htnlEqe1Dka-t$H4S~%J3m$3Wui*c4T0we#UaSA#;(Tv%3m$7ryljDwQxc2Ec z3%oX!EK?7}liz}op_J5{1zsDY;M*(^hGneJ&spHLG3v|d8~IY_rts;FvLjzni#V@5 zlNEoT>5osMo)xX}mv{_vPj*-3XNyU@d5eah%W9J=V0=p#nU|qt?VhA@_)a(CEcVv0 z=Le4*`u|WZI8BCKF|?zC!tS2jVl%by(-O+Lq7C+@3j-??UOYyNy?0NA`rgddfKNs9DOs1N$Z9+rCv z7gm8zh#DtEA->s+Z!UCwlO0^}2$(f2`j_wm7W*Yw8>gmvGEtcwOyrXA#n8aJh87qF z#DK;Q4WNM=JFM8(bvi+UzhDMsYFH1|wuBe3*bzc5Zp?r~Etl`+VrP`U>2DsYA&EgX zFl3IzO?+DxtB>Y8MKsv6{zDGc<$!XY98ldY^}K7c0s^ zGrldAZ(L>n7_erSwMz$7gJ!@vEg00*tq=21?Q%gi=82?P_u(w?=c5}kk>%~AV898- zn)A?$eS)>DT^4T08~}?4kH=-74v3XhRmx(hKEnd(nDZ zBdnXHq}0^uR5K4uHS`p&*oI%$=lQ4>ng!j!$@Id{c#iW>ENmqd!(X8XSU6z$M3P$8 zrqj$;JZOd{_+%6B(DmMo*=c5r1kLby*dp{4t{PIQqsD7U&O)oQq+#En9J&xXH9Orx z<4rYe2-1Pfq6vMEFr8|);-(rh3>Q+-$O&88g%pbd$VJDK54V9H0987 z+c$F*NV8MTp3mBeKM4!u-P`l(XISx&HaO}PJid<@=w9J2DfcARX(BEPI}-N8x?rCA z8_}(!U3wYHkgS=T@DYsyJM1=A(tPOasNn@Rfn8vgt=a`aMAncpBp2;s)e`(lyJmPp zb}e)PKVZv-ta)!d@PIZu&Fl?A4+0XLz?%2{!F1Z$ewcRfmy-~%xwb{~QZD2Ty4jNw z84*ur?=lbF!Xub&SmDcphomuA^kQDxSyQ2&^^+On50I7lq%LADOC6eZN&k^zq|Y)^ zYU*^E3;Slu83wUEItGUGNu0gB_=!S@hLcAbT?xPL!(acsibd-n}h>s z;h4?R5qf~TV7Mu*u21mmh(bHP$m>&A0 ztJt_M{6JzNQ+t;AikR_-Zd`x;Z*>z6@UttBl^J(=BUO z#NyBj*|SfbPvRn<51Qfgh@hQ+6BEu$IrA0kft1*nf-{x?{>~?J_JN_R)CbH@tV!RW z9!5Fy6<=lTLZY$1+`&5-yV5gEm$|4RK|M48-tr$SXIQ02HLM{`wKX^0sBRJ2W67B@ z)C;=trrLL@qR$!y?{6V>QQ-@2^;mHT({axBO;gmR#-!~dZbo+vbNL! z^EybbK-Oy=<+~831HJQZn&H;9X3?v)9ud{LP2s|N(2v41dQwm34E7yi+^uQ%XXx`s z9%#LSd9p^*rF#DkBmF4ojMHt+=#1>A{C=p<)8;T#R~?>3clHY!A9+3|U(y=$BLU;6e^N~Tf6x*Rmj_I~!! z85s^ii}|UL*GpzubIB_K5A~+TW35G_)!lVKKfyLwpQCNPE*RgVxGUTPR>sCM$h=~; z&3|hc_1a?I3CVfHUU@Ao1)c*5;pEJrr_<#DL^#d1g<9Ir}15Rq3wC1~%-M;EZF|?%6NV=TPjJvc}*QmbBgz zcc;;KIjsWkXk~g!BOGa95%cR}5tze)7?E+QI<+*UZTsG;b(X?snj3EoEvQ<_jtgk! z9Ai=U-gfTgRjB7hKUVN88SYbGdxU(io6DAz5gv_QeLkD3q+#sCVBa25u&-lZ(kI$mL!LoyMpREFmb|&#wRucC zm)fn$eVXOD5jEeY$#EC+E>~EYXD!|SB6FgiRhC@ua0~ipiUcRf6s+l%TIviRYQ~G2 zJ=WZ3tMiRDzxN0w^k2j4*mu&USjp?)@&Aoow_)pke`#QcS3U17NeL%bb1n&XfuAm= zx-xJ{oX=7K@5vXb?9~2f2o^grk)@C+!vmuCXnt@YQzcydwex@$e(d2Kf=Ru!53?U} z#aUfHXddVf=QBmTMSl2nU*dnz-wPV8i$_-nz2>gSCt=HfoZy6=lTRg3~JnPXt%zx_Rw%aUmHh}`$s!7d>7{`36= zM}*4}jpiNAhOwwC-ywsjeM`u>U=6;+zR!fw z2~mt#o>;~*5Le^k37B|?Y4qcaQ~Y<{zZp-UDcMgsp5GEG?_`K!1D%h3p;$Lp82gwL z+dmOivX}14a|wsm+rlw+M=hkjNS$ZTbM}q$txUjtU;N=+3*Kn({q9LihEVtWOtgEU z-n^q5uxg$7C`t41xiZX&U9fi#crh;ChC(~A3iUfH3k81+`5V#wmEdri3-tGS8sM6F z9Jms#@PiKKr#05Y_||Xw=2;th4aM*6BEdnM5(mcbJ}KV>%cog7JI7vmRV?Htco~wD z-y-u{O)KhAzRgu~$(WQFEY3jp7?Bt#(=K3jIf*`$IH5JzkC=~lf-lRqu>ZHVE@bpx z)4C)sy0ThYf+LBh=&@&y)bd8mGx6Wwg7lFh>~EEwd@EeXitIkp9wFY%s`q^_sD0PU z>`FFxH;Bmgr2e1Ke=H~0AMRh1cX0hc|MxT!XEd;*y=6UZpR8T8TB%Ik6QbF+-uq#9 zdg-gI8R%|){z=dNToGlxuf1!T;7*n#XRT3jI#cm?nvQj0oSo5@7<_FGdY=lr^u45mYK|*QF;`1z>+MbBH2oB;fbuMj5VpA1`+n3#T;LwW2v<{P zS7XWjh{OUzEESUH>s+UbxS)MHR2kv*so{t(-e---BEJz-MkpS)8=?FleTWDpr~wCg j?-hMy|1!DeVev}c=ReX+%X?@Xcl(h_*=lbz{onrrD`ih~ literal 0 HcmV?d00001 diff --git a/手机说说发表工具.vbp b/手机说说发表工具.vbp index 10c5399..80f65d0 100644 --- a/手机说说发表工具.vbp +++ b/手机说说发表工具.vbp @@ -1,11 +1,14 @@ Type=Exe -Form=Frm_Main.frm Reference=*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\Windows\SysWOW64\stdole2.tlb#OLE Automation +Reference=*\G{662901FC-6951-4854-9EB2-D9A2570F2B2E}#5.1#0#C:\Windows\system32\winhttp.dll#Microsoft WinHTTP Services, version 5.1 +Form=Frm_Main.frm UserControl=..\VBûؼ\TzTab.ctl UserControl=..\VBûؼ\XmlHttp.ctl UserControl=..\VBûؼ\TzButton.ctl UserControl=..\VBûؼ\Frm_Tols.ctl Class=clsMD5; clsMD5.cls +UserControl=..\VBûؼ\TzCheck.ctl +ResFile32="ֻ˵˵.RES" IconForm="Frm_Main" Startup="Frm_Main" HelpFile="" diff --git a/手机说说发表工具.vbw b/手机说说发表工具.vbw index ba086d2..1474d7e 100644 --- a/手机说说发表工具.vbw +++ b/手机说说发表工具.vbw @@ -1,6 +1,7 @@ -Frm_Main = 22, 22, 1358, 527, , 231, 65, 1630, 570, C -TzTab = 0, 0, 1336, 505, , 66, 66, 1465, 571, C -XmlHttp = 0, 0, 0, 0, C, 132, 132, 1468, 637, C +Frm_Main = 200, 77, 1536, 582, , 231, 65, 1630, 570, C +TzTab = 0, 0, 1336, 505, C, 66, 66, 1465, 571, C +XmlHttp = 88, 88, 1424, 593, C, 132, 132, 1468, 637, C TzButton = 0, 0, 0, 0, C, 154, 154, 1490, 659, C Frm_Tols = 44, 44, 1380, 549, C, 176, 176, 1512, 681, C clsMD5 = 0, 0, 0, 0, C +TzCheck = 0, 0, 0, 0, C, 0, 0, 0, 0, C