redapple2008 发表于 2020-8-4 10:15:56

清除ssl状态【已解决】

本帖最后由 redapple2008 于 2020-8-4 13:56 编辑

这个怎么改成AU3代码：
var document = webBrowser1.Document;
document.ExecCommand("ClearAuthenticationCache", false, null);


javascript代码（仅限IE）：< script type = 'text / javascript' >
document .execCommand（ " ClearAuthenticationCache" ）;
< / script>

zghwelcome 发表于 2020-8-4 11:26:06

$oIE.document.execCommand("ClearAuthenticationCache")
试试看

redapple2008 发表于 2020-8-4 11:33:21

zghwelcome 发表于 2020-8-4 11:26
$oIE.document.execCommand("ClearAuthenticationCache")
试试看

$oIE: undeclared global variable.
这个怎么定议？

redapple2008 发表于 2020-8-4 11:37:19

C++代码类似这样：typedef BOOL (CALLBACK *pDelSSL)(LPSTR pszTargetName,DWORD dwFlags);
typedef BOOL (CALLBACK *pDelSSL2)(DWORD inp,DWORD dwFlags);

void CTestDlg::OnOK()
{

pDelSSL DelSSL;
HINSTANCE hdll = NULL;
hdll = LoadLibrary("Schannel.dll");
if (hdll != NULL)
{
if((DelSSL = (pDelSSL)GetProcAddress(hdll, _T("SslEmptyCacheA"))) == NULL)
{
//MessageBox("加载函数失败");
}
}
BOOL A = DelSSL(NULL,0);

FreeLibrary(hdll);


HINSTANCE h_wininetDLL = LoadLibrary("wininet.dll");
pDelSSL2 DelSSL2 = (pDelSSL2) GetProcAddress(h_wininetDLL,"IncrementUrlCacheHeaderData");
DWORD buf = 0;
A = DelSSL2(14,&buf);

FreeLibrary(h_wininetDLL);

}

zghwelcome 发表于 2020-8-4 11:37:26

redapple2008 发表于 2020-8-4 11:33
$oIE: undeclared global variable.
这个怎么定议？

你不是操作IE吗？

redapple2008 发表于 2020-8-4 11:41:15

zghwelcome 发表于 2020-8-4 11:37
你不是操作IE吗？

主要是想操作这个按钮

zghwelcome 发表于 2020-8-4 11:51:53


Local $oIE = ObjCreate("InternetExplorer.Application")
$oIE.Navigate("about:blank")
While $oIE.Busy
        Sleep(20)
WEnd
$oIE.document.execCommand("ClearAuthenticationCache")
$oIE.Visible = 0
Sleep(500)
$oIE = 0
Exit


不知道是否有效果

zghwelcome 发表于 2020-8-4 12:27:26

这样调用DLL不知道是否能行
**** Hidden Message *****

redapple2008 发表于 2020-8-4 12:42:24

zghwelcome 发表于 2020-8-4 12:27
这样调用DLL不知道是否能行
**** 本内容被作者隐藏 ****

十分感谢，我试试了。

redapple2008 发表于 2020-8-4 13:55:53

最终手动操作：代码如下： Run(@ComSpec & ' /c rundll32.exe shell32.dll,Control_RunDLL inetcpl.cpl ', "", @SW_HIDE)
        WinWait( "Internet" )
        If Not WinActivate ( "Internet","" ) Then WinActivate ( "Internet","" )
        WinWaitActive ( "Internet","" )
        $WinPosArray = WinGetPos ( "Internet" )
    $TNewCheckListBoxArray = ControlGetPos ( "Internet", "", "" )
        $Width = $WinPosArray + $TNewCheckListBoxArray
        $Height =$WinPosArray + $TNewCheckListBoxArray
    MouseClick ( "left", $Width + 180, $Height + 40 )
    Sleep(1000)
        $TNewCheckListBoxArray = ControlGetPos ( "Internet", "", "" )
        $Width = $WinPosArray + $TNewCheckListBoxArray
        $Height =$WinPosArray + $TNewCheckListBoxArray
    MouseClick ( "left", $Width + 95, $Height + 40 )
        Sleep(200)
        Send("{ENTER}")
    $TNewCheckListBoxArray = ControlGetPos ( "Internet", "", "" )
        $Width = $WinPosArray + $TNewCheckListBoxArray
        $Height =$WinPosArray + $TNewCheckListBoxArray
    MouseClick ( "left", $Width + 20, $Height + 40 )

afan 发表于 2020-8-4 14:37:22

redapple2008 发表于 2020-8-4 13:55
最终手动操作：代码如下：

不知道你这个模拟操作的是啥，反正XP不是这些控件
有些代码不需要这样繁琐的，比如进入页面这样一行就行了
Run('rundll32.exe shell32.dll,Control_RunDLL inetcpl.cpl,,3')
不知道你要点击什么，如果自用无所谓，共享的话控件序号都不一样，需要枚举。

afan 发表于 2020-8-4 14:42:53

redapple2008 发表于 2020-8-4 13:55
最终手动操作：代码如下：

另外 zghwelcome 提供的两段代码能不能用你也应该反馈一下。

redapple2008 发表于 2020-8-4 14:59:18

afan 发表于 2020-8-4 14:42
另外 zghwelcome 提供的两段代码能不能用你也应该反馈一下。

zghwelcome 提供的两段代码也没测试，主要是没办法看到结果。

redapple2008 发表于 2020-8-4 15:19:38

afan 发表于 2020-8-4 14:37
不知道你这个模拟操作的是啥，反正XP不是这些控件
有些代码不需要这样繁琐的，比如进入页面这样一行就行 ...

你这一句省了我好多条代码，厉害啊！
页: [1]
查看完整版本: 清除ssl状态【已解决】