永发信息网

VB打开文件写入信息

答案:1  悬赏:80  手机版
解决时间 2021-07-29 22:45
  • 提问者网友:雾里闻花香
  • 2021-07-29 01:03

Private Sub Command2_Click()
Dim server_filelengh As Integer '定义一个整型变量,作为文件的长度
Dim config_url As String
config_url = Text1.Text '把文本框中的地址赋给config_url
Open "1.exe" For Binary As #1 '使用二进制的方式打开文件
Seek #1, 6b920 '找到文件的地址
Put #1, , config_url '写入配置
Close
MsgBox "已经写入成功", , "提示" '
End Sub

问题是6b920提示错误,Seek好象只能读数字不含字母,那怎样办?

最佳答案
  • 五星知识达人网友:拜訪者
  • 2021-07-29 02:15
Seek #1, &H6b920 '&H 代表16进制
我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息,可以点下面链接进行举报!
点此我要举报以上问答信息
大家都在看
推荐资讯