怎样创建超短URL
答案:1 悬赏:30 手机版
解决时间 2021-05-06 02:37
- 提问者网友：像風在裏
- 2021-05-05 08:09
如何把一个长的网址变成短网址
最佳答案
- 五星知识达人网友：时间的尘埃
- 2021-05-05 08:45
'独家秘方，要加分哦
Private Sub Command1_Click()
Dim strFile As String
strFile = Environ$("HOMEPATH") & "\桌面\" & "网站快捷方式" & ".url"
Open strFile For Output As #1
Print #1, "[InternetShortcut]" & vbCrLf & "URL=" & Text1.Text
Close
End Sub
Private Sub Form_Load()
Text1.Text = " http://www.baidu.com/"
Private Sub Command1_Click()
Dim strFile As String
strFile = Environ$("HOMEPATH") & "\桌面\" & "网站快捷方式" & ".url"
Open strFile For Output As #1
Print #1, "[InternetShortcut]" & vbCrLf & "URL=" & Text1.Text
Close
End Sub
Private Sub Form_Load()
Text1.Text = " http://www.baidu.com/"
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
大家都在看
推荐资讯