przez vista... 10 Sie 2006, 23:11
Jaki program używa takich spryptów Delphi, C++... itd
- Kod: Zaznacz wszystko
bIS = Registry.DoesKeyExist(HKEY_CURRENT_USER, "Software\\Microsoft\\Internet Explorer\\Main");
if bIS == true then
Registry.SetValue(HKEY_CURRENT_USER, "Software\\Microsoft\\Internet Explorer\\Main", "DisableScriptDebuggerIE", "yes", REG_SZ);
end
- Kod: Zaznacz wszystko
-- Retrieve Username and Password
sUsername = DlgEditField.GetProperties(CTRL_EDIT_01);
sPassword = DlgEditField.GetProperties(CTRL_EDIT_02);
-- Convert user/pass combo to MD5 digests
sUsernameMD5 = Crypto.MD5DigestFromString(sUsername);
sPasswordMD5 = Crypto.MD5DigestFromString(sPassword);
-- Initialize variables for submit action
sCheckScriptURL = "http://www.nizcrue.net/authenticate.php";
tValuesToPass = {username_md5 = sUsernameMD5, password_md5 = sPasswordMD5};
nSubmitMethod = SUBMITWEB_POST;
nTimeout = 20;
nPort = 80;
tAuthData = nil;
tProxyData = nil;
-- Submit to the web
sResult = HTTP.Submit(sCheckScriptURL, tValuesToPass, nSubmitMethod, nTimeout, nPort, tAuthData, tProxyData);
-- Check the result ('1' is success)
if sResult == "1" then
-- The user is authenticated
Screen.Next();
else
-- The user is not authenticated.
Dialog.Message("ERROR", "That user/pass combo is invalid", MB_OK, MB_ICONSTOP);
end