|
[求助]自较验搞不定,请帮我看一下
等待高手出手,可能要锁贴了。 |
|
[讨论]重起验证
给个破文,我也想学习学习 |
|
|
|
[求助]请推荐一款反编译软件,谢谢
给个地址看看 |
|
[求助](求助)VB shell 怎么使用呀?
'NO1调用盘符下某程序 'NO2调用相同目录下某程序 '程序编写 爱琴海 Private Sub TiaoNo1(EXEName1 As String) On Error GoTo Meiyoufaxian 'NAME为“1.exe”这样的形式 '调用根目录下的某个可执行程序 Dim Zhuangtai As Boolean '定义标志位,如果检测到目标程序就置TRUE Dim Lujiang As String '定义路径 Dim Panfu As Long Panfu = 67 '初始化盘符为C盘 Zhuangtai = False '初始化状态 Do While Zhuangtai = False If Panfu > 89 Then Exit Do lujing = Chr(Panfu) & ":\" & EXEName1 If Dir(lujing) = "" Then Panfu = Panfu + 1 Else Zhuangtai = True End If Loop MsgBox lujing, , "发现目标路径:" If Zhuangtai = True Then Shell lujing, vbNormalFocus '具体要隐藏执行还是正常执行你就自己改 Exit Sub Meiyoufaxian: If Err.Number = 52 Then MsgBox "程序不存在", , "提示" Else MsgBox "程序无法调用,请检查", , "提示" End If End Sub Private Sub TiaoNo2(EXEName2 As String) 'NAME2为“1.exe”这样的形式 '调用同级目录下的某个可执行程序 Dim Lujin2 As String Lujin2 = App.Path & "\" & EXEName2 If Dir(Lujin2) <> "" Then Shell Lujin2, vbNormalFocus Else MsgBox "程序不存在", , "提示" End If End Sub Private Sub Command1_Click() TiaoNo1 ("1.exe") '调用C或者D或者E等盘符下的某一个1.exe程序 End Sub Private Sub Command2_Click() TiaoNo2 ("2.exe") '调用同个目录下的2.exe End Sub |
|
|
|
[分享]好开心啊,今天终于搞定了一个软件,做出了注册机!
恭喜LZ,看雪又出一个高手了,看好你。 |
|
[求助]关于机器狗病毒代码的目的
咋知道的?为什么是坏人? |
操作理由
RANk
{{ user_info.golds == '' ? 0 : user_info.golds }}
雪币
{{ experience }}
课程经验
{{ score }}
学习收益
{{study_duration_fmt}}
学习时长
基本信息
荣誉称号:
{{ honorary_title }}
能力排名:
No.{{ rank_num }}
等 级:
LV{{ rank_lv-100 }}
活跃值:
在线值:
浏览人数:{{ visits }}
最近活跃:{{ last_active_time }}
注册时间:{{ user_info.create_date_jsonfmt }}
勋章
兑换勋章
证书
证书查询 >
能力值