Foxtable(狐表)用户栏目专家坐堂 → 关闭Foxtable软件更新提示


  共有4358人关注过本帖树形打印复制链接

主题:关闭Foxtable软件更新提示

帅哥哟,离线,有人找我吗?
ryubo888
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:69 积分:703 威望:0 精华:0 注册:2017/11/4 13:12:00
关闭Foxtable软件更新提示  发帖心情 Post By:2018/9/10 10:01:00 [只看该作者]

我想在程序里加入关闭Foxtable软件更新提示,怎么写代码?大神指教

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/9/10 10:18:00 [只看该作者]

你指哪里的提示?foxtable版本的提示?

 

http://www.foxtable.com/webhelp/scr/2713.htm

 


 回到顶部
帅哥哟,离线,有人找我吗?
ryubo888
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:69 积分:703 威望:0 精华:0 注册:2017/11/4 13:12:00
  发帖心情 Post By:2018/9/10 14:46:00 [只看该作者]

是关闭foxtable版本更新的提示

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/9/10 14:55:00 [只看该作者]

以下是引用ryubo888在2018/9/10 14:46:00的发言:
是关闭foxtable版本更新的提示

 

截图说明什么提示。如果foxtable最新版的提示,是无法关闭的。


 回到顶部
帅哥哟,离线,有人找我吗?
ryubo888
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:69 积分:703 威望:0 精华:0 注册:2017/11/4 13:12:00
  发帖心情 Post By:2018/9/10 15:18:00 [只看该作者]

哦,就是这样的提示,我想关闭它
图片点击可在新窗口打开查看此主题相关图片如下:1536563731(1).png
图片点击可在新窗口打开查看
大神们帮帮想想办法吧!!!
[此贴子已经被作者于2018/9/10 15:18:57编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/9/10 16:15:00 [只看该作者]

全局代码

 

<DllImport("user32.dll", EntryPoint := "FindWindow", SetLastError := True)> _
Public Function FindWindow(lpClassName As String, lpWindowName As String) As IntPtr
End Function

<DllImport("user32.dll", EntryPoint := "FindWindowEx", SetLastError := True)> _
Public Function FindWindowEx(hwndParent As IntPtr, hwndChildAfter As UInteger, lpszClass As String, lpszWindow As String) As IntPtr
End Function

<DllImport("user32.dll", EntryPoint := "SendMessage", SetLastError := True, CharSet := CharSet.Auto)> _
Public Function SendMessage(hwnd As IntPtr, wMsg As UInteger, wParam As IntPtr, lParam As Integer) As Integer
End Function

Public Sub CloseWin(winTitle As String, buttonTitle As String)
Dim hwnd As IntPtr = FindWindow(Nothing, winTitle)
If hwnd <> IntPtr.Zero Then
    'Dim hwndText As IntPtr = FindWindowEx(hwnd, 0, Nothing, "请设置浏览器的安全级别.启用activeX脚本!")
    'If hwndText <> IntPtr.Zero Then
    Dim hwndSure As IntPtr = FindWindowEx(hwnd, 0, "Button", buttonTitle)
    If hwnd <> IntPtr.Zero Then
        SendMessage(hwndSure, &Hf5, 0, 0)
        '按她
    End If
    'End If
End If
End Sub

 

调用代码,你可以做一个定时器,定时执行

 

CloseWin("提示", "否(&N)")


 回到顶部
帅哥哟,离线,有人找我吗?
ryubo888
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:69 积分:703 威望:0 精华:0 注册:2017/11/4 13:12:00
  发帖心情 Post By:2018/9/10 18:09:00 [只看该作者]

非常感谢

 回到顶部
帅哥哟,离线,有人找我吗?
liuqide
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:199 积分:2076 威望:0 精华:0 注册:2018/4/19 13:46:00
  发帖心情 Post By:2018/9/11 8:48:00 [只看该作者]

foxtable版本更新,一直不断地提示升级,确实很烦,我暂时是不需要升级的,担心升级会影响到目前的项目,建议官方能增加是否提示升级这个开关

 回到顶部
帅哥哟,离线,有人找我吗?
blackzhu
  9楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级:狐仙 帖子:9879 积分:57634 威望:0 精华:15 注册:2008/9/1 9:45:00
  发帖心情 Post By:2019/7/16 9:48:00 [只看该作者]

以下是引用有点甜在2018/9/10 16:15:00的发言:

全局代码

 

<DllImport("user32.dll", EntryPoint := "FindWindow", SetLastError := True)> _
Public Function FindWindow(lpClassName As String, lpWindowName As String) As IntPtr
End Function

<DllImport("user32.dll", EntryPoint := "FindWindowEx", SetLastError := True)> _
Public Function FindWindowEx(hwndParent As IntPtr, hwndChildAfter As UInteger, lpszClass As String, lpszWindow As String) As IntPtr
End Function

<DllImport("user32.dll", EntryPoint := "SendMessage", SetLastError := True, CharSet := CharSet.Auto)> _
Public Function SendMessage(hwnd As IntPtr, wMsg As UInteger, wParam As IntPtr, lParam As Integer) As Integer
End Function

Public Sub CloseWin(winTitle As String, buttonTitle As String)
Dim hwnd As IntPtr = FindWindow(Nothing, winTitle)
If hwnd <> IntPtr.Zero Then
    'Dim hwndText As IntPtr = FindWindowEx(hwnd, 0, Nothing, "请设置浏览器的安全级别.启用activeX脚本!")
    'If hwndText <> IntPtr.Zero Then
    Dim hwndSure As IntPtr = FindWindowEx(hwnd, 0, "Button", buttonTitle)
    If hwnd <> IntPtr.Zero Then
        SendMessage(hwndSure, &Hf5, 0, 0)
        '按她
    End If
    'End If
End If
End Sub

 

调用代码,你可以做一个定时器,定时执行

 

CloseWin("提示", "否(&N)")



这样是不是将MessageBox.Show() 全部关闭了?


 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110738 积分:563610 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2019/7/16 10:13:00 [只看该作者]

MessageBox.Show() 不要使用“提示”这种标题

 回到顶部
总数 11 1 2 下一页