VBGood网站全文搜索 Google

搜索VBGood全站网页(全文搜索)

VB爱好者乐园(VBGood)

 找回密码
 立即注册
搜索
查看: 2142|回复: 2

[求助] VB新手在线求助!

[复制链接]
发表于 2021-5-19 21:55:28 | 显示全部楼层 |阅读模式
本帖最后由 luyigoog 于 2021-5-19 21:57 编辑


'VA: 4336A4
Private Declare Function ShellExecute Lib "shell32" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long


Private Sub Command1_Click() '4338C0
loc_004338FD:   Call AddRef 'Ignore this(Me, 0, 0, 0)
loc_0043391A:   var_8004 = Form1.Text1 'Ignore this
loc_0043393E:   If Form1.Text1.Text < 0 Then
loc_004339A1:     var_801C = ShellExecute(0, "open", "tencent://message/?Menu=yes&uin=QQ号&Service=112&SigT=ff8847c4116e035fd4b467f691cd9e42c0d413cec47eefb75d5e970421a2376ab400fffb0ea6cb8a&SigU=8a718a0cd8eba14b389fceb5788e72797b8a7eae107b9c43dd56bc7cc21090bccf67158b657963841c529232def3d416761799a1050acaaa29033f62f7fb46b5580fef571e7d82041508e926d65900ae77fae70b9cc4a341b7677c65b215d0327211235a5702bb6564157a3dfc11abe4" & CheckObj(Form1.Text1, global_00433708, 160), global_0043371C, global_0043371C, 1)
loc_00433A0E:   End If
End Sub

Private Sub Command2_Click() '433A30
  Dim global_004342E0 As Global
loc_00433A6D:   Call AddRef 'Ignore this(Me, 0, 0, 0)
loc_00433A7C:   If var_4342E0 = 0 Then
loc_00433A88:     var_8004 = vbaNew2("{FCFB3D23-A0FA-1068-A73808002B3371B5}", global_004342E0)
loc_00433A9B:     var_2C = global_004342E0
  loc_00433AB0:   If Global.Unload Me < 0 Then
loc_00433ABB:       var_8008 = CheckObj(global_004342E0, global_00433730, 16)
End Sub



点击运行  出来个提示对话框  


编译错误,函数或接口标记为限制的,或函数使用了Visual basic 中不支持的自动类型。

改自动的怎么改,谢谢大侠了!
发表于 2021-5-25 21:49:54 | 显示全部楼层
牛逼,这个反编译的代码能运行才是怪了
回复 支持 反对

使用道具 举报

发表于 2021-5-30 01:16:14 | 显示全部楼层
qq发起临时会话而已,这根本不需要逆向,一个API+URL完事了
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

文字版|手机版|小黑屋|VBGood  

GMT+8, 2021-12-5 13:04

VB爱好者乐园(VBGood)
快速回复 返回顶部 返回列表