主题：手机扫描二维码自动登陆网页问题

写代码，改成

Dim Bar As New BarCodeBuilder
Bar.Symbology = Barpro.Symbology.QRCode

bar.Code = "http://www.baidu.com"
bar.SaveImage("d:\test.wmf")

Dim proc As new Process
proc.File = "d:\test.wmf"
proc.start