UC知道如何在VB里编写弹窗代码？
来源：百度知道 编辑：UC知道 时间：2024/06/11 17:05:52
现在工程已经做好！
但我想在软件运行后不定时的自动弹出网页。我有2种思路，
1，网页地址我想存在我网站目录下的一个ini或者txt文件里！
现在就是我想实现软件运行后自动读取远程WEB目录下我存网站地址的那个文件并弹出里面的地址列表！
2，网页地址我以快捷方式的类型放到我远程WEB某个目录下，软件运行后将依次在本地弹出那个目录下的所有网址快捷方式！
但我想在软件运行后不定时的自动弹出网页。我有2种思路，
1，网页地址我想存在我网站目录下的一个ini或者txt文件里！
现在就是我想实现软件运行后自动读取远程WEB目录下我存网站地址的那个文件并弹出里面的地址列表！
2，网页地址我以快捷方式的类型放到我远程WEB某个目录下，软件运行后将依次在本地弹出那个目录下的所有网址快捷方式！
Private Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long
Dim arrURL
Private Sub Form_Load()
url$ = "http文件网址"
tmp$ = "保存到的本地路径"
'先下载这个文件
URLDownloadToFile 0&, url, tmp, 0&, 0&
'延迟3秒，根据文件大小自行设置
Delay 3
'打开本地文件
Open tmp For Input As #1
url = StrConv(InputB$(LOF(1), 1), vbUnicode)
Close #1
'删除临时文件
Kill tmp
'以回车换行符拆解网址到数组
arrURL = Split(url, vbCrLf)
'初始化计时器，这里是一分钟，自行修改
Timer1.Interval = 60000
End Function
Sub Delay(Seconds#)
t# = Timer
Do: DoEvents
Loop Until Timer > t + Seconds
End Sub
Private Sub Timer1_Timer()
Static arrIndex
arrIndex = arrIndex Mod (UBound(arrURL) + 1)
Shell "rundll32.exe ur