永发信息网

按键精灵问题,出错的位置应该怎么改?

答案:3  悬赏:0  手机版
解决时间 2021-12-24 16:14
  • 提问者网友:杀手的诗
  • 2021-12-23 19:30
f = Plugin.File.IsFileExit("C:\WINDOWS\zt.txt")//判断文件是存在
If f = True Then//如果存在
ke = Plugin.File.IsFileExit("C:\WINDOWS\key.txt")//判断文件是存在"
If ke = True Then//如果存在
c = Lib.文件.读取指定行文本内容("C:\WINDOWS\key.txt", 1)//读取KEY文件第一行内容
clng(c) = Hex(b)
Else
Event Form1.Load//加载窗口
//当窗体被加载时触发的事件
Event Form1.Button1.Click//点击窗口确定键发生事件
Call Lib.文件.删除指定行文本内容("C:\WINDOWS\key.txt",1)
//清除key文件内的内容
InputBox1 = d
Call Plugin.File.WriteFileEx("C:\WINDOWS\key.txt", d)
//写入窗口内的内容到KEY文件
If clng(d) = Hex(b)
Then //判断key文件内的内容是否正确
MsgBox "成功"//正确弹出窗口成功
Else
MsgBox "失败"
End If
//不正确弹出窗口失败
End Event
End Event

End If
Else//如果不存在
Set fso = CreateObject("Scripting.FileSystemObject")
Set a = fso.createtextfile("C:\WINDOWS\zt.txt", True)//建立一个文本文件
b = Lib.算法.随机数字串(10)
Call Plugin.File.WriteFileEx("C:\WINDOWS\zt.txt", b)//向zt文件内写入随机数字串
End If
最佳答案
  • 五星知识达人网友:轻熟杀无赦
  • 2021-12-23 19:53
界面加载事件以及控件事件不能中途定义,要独立定义。
全部回答
  • 1楼网友:上分大魔王
  • 2021-12-23 20:52
怎么可能找不到? 你再goto a之前加上messagebox"找到01图片" 看看会不会有弹出框,没有的话就是第二个找图出问题了 图片加入附件了吗
  • 2楼网友:等灯
  • 2021-12-23 20:45
#include int main() { int i,n,m,n1,n2,n3; scanf("%d\n",&n); m=0; for(i=1;i<=n;i++){ n1=i%7; n2=i/10; n3=i%10; if(n1!=0&&n2!=7&&n3!=7) m=m+i*i; }
我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息,可以点下面链接进行举报!
点此我要举报以上问答信息
大家都在看
推荐资讯