-- 作者:天若千颖
-- 发布时间:2016/12/15 15:23:00
--
1.激活码肯定没有问题,因为一直用着啊。
2.窗口代码如下:
Dim Val As String Val = Rand.NextString(12) \'生成长度为12的随机字符串 SaveConfigValue("map1", Val) \'储存当前随机码自定义函数,每次比之前增加1 Dim ftp1 As New FtpClient ftp1.Host="88888" \'登录更新服务器 ftp1.Port= "88" ftp1.Account = "888" ftp1.Password = "888" If ftp1.Upload(ProjectPath & "Tokens\\DrilledWells.html","\\Tokens\\"& GetConfigValue("map1",1)&".html",False) = True Then StatusBar.Message1 = "地图授权成功!" Else Messagebox.show("地图授权失败,请联系管理员","提示",MessageBoxButtons.OK,MessageBoxIcon.Information) End If
Dim brw As WinForm.WebBrowser = e.Form.Controls("WebBrowser1") brw.Address = "http://8888:88/tokens/"& GetConfigValue("map1",1)&".html" Dim web = brw.basecontrol web.ScriptErrorsSuppressed = True web.isWebBrowserContextMenuEnabled = False web.WebBrowserShortcutsEnabled = False
|
-- 作者:天若千颖
-- 发布时间:2016/12/15 16:14:00
--
多谢楼上的意见。
首先,不是激活码的问题,因为我的这个狗一直在这个电脑上用,没有变过。
目前存在的问题,我重写了网页文件,强制使用最新的IE版本渲染,虽然也没有什么用,但是感觉比以前好一点,另外一些电脑上的IE版本是IE8,估计这些电脑打开项目文件Webbrowser调用的内核比8还低,所以我建议他们升级IE到最新,这样,至少IE内核能到9。我目前IE是11,webbrowser调用的内核是IE9.
另外,貌似通过修改注册表的方式制定Webbrowser的默认内核,虽然制定为11,但是,还是9啊。
|