二维码生成工具
自己写的小玩意[code]Rem Code BY 老刘Rem 转载请注明作者昵称,谢谢合作。
Rem 使用百度云二维码API
Option Explicit
Const [二维码宽] = 500
Const [二维码高] = 500
Dim strURL
strURL = Replace(Replace(InputBox("输入文本:" & vbNewLine & _
"\r = 回车符" & vbNewLine & "\n = 换行符","二维码生成工具"),"\r",vbCr),"\n",vbLf)
If Not strURL = "" Then
With CreateObject("InternetExplorer.Application")
.AddressBar = False
.MenuBar = False
.Resizable = False
.StatusBar = False
.ToolBar = False
.Width = [二维码宽] * 1.2
.Height = [二维码高] * 1.2
.Visible = True
.Navigate "http://pan.baidu.com/share/qrcode?w=" & [二维码宽]& _
"&h=" & [二维码高] & "&url=" &strURL
End With
End If
strURL = Empty
Rem objIE.Quit
Rem 不退出,保留窗口。[/code] 专门找过来,好用。谢谢!!! 为啥我的提示对象不支持此操作,错误代码800A01BD
页:
[1]