Jump to content

Siahtech

Members
  • Posts

    9
  • Joined

  • Last visited

Everything posted by Siahtech

  1. also I found THis '?do=embed' frameborder='0' data-embedContent>> it Fixed my Problem It now uses IE11 =P This is what I used to fix my issue #include<Process.au3> $sVersion = StringSplit(FileGetVersion(@ProgramFilesDir & "\Internet Explorer\iexplore.exe"), '.') If StringInStr(@ProgramFilesDir, '(x86)') Then $64 = 'x64"' If $64 = 'x64' Then RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Wow6432Node\Microsoft\Internet Explorer\MAIN\FeatureControl\FEATURE_BROWSER_EMULATION", _ProcessGetName(@AutoItPID), "REG_DWORD", SelectVersion($sVersion[1])) Else RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Internet Explorer\MAIN\FeatureControl\FEATURE_BROWSER_EMULATION", _ProcessGetName(@AutoItPID), "REG_DWORD", SelectVersion($sVersion[1])) EndIf Func SelectVersion($Version) If $Version = 11 Then $Version = '0x2AF9' If $Version = 10 Then $Version = '0x2711' If $Version = 9 Then $Version = '0x270F' If $Version = 8 Then $Version = '0x22B8' Return $Version EndFunc ;==>SelectVersion
  2. Thanks for your help I used => '?do=embed' frameborder='0' data-embedContent>>
  3. Thanks I will look into it!
  4. is there anyway I could tell it to run through my current IE? but still be Embedded into my Gui? I have put alot of work into looking for a fix before i posted here.
  5. So Autoit has its own IE? or is it IE has a Embedded funtion and its old?
  6. So my problem is when I run this code not compiled it Loads Rdio but after I compile the site fails to load. I am on windows 7(x64) Ultimate IE11 I have tried many different options of embedding IE and they all have the same problem. and what I really don't get is why is it using a different browser compiled? Not Compiled => Mozilla/5.0 (compatible; MSIE 9.0; Windows NT 6.1; WOW64; Trident/7.0) Compiled => Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 6.1; WOW64; Trident/7.0; SLCC2; .NET CLR 2.0.50727; .NET CLR 3.5.30729; .NET CLR 3.0.30729; Media Center Example Code: #include <GUIConstantsEx.au3> #include <IE.au3> #include <WindowsConstants.au3> $Site = 'http://www.rdio.com/' Local $oIE = _IECreateEmbedded() GUICreate("Embedded Web control Test", 640, 580, _ (@DesktopWidth - 640) / 2, (@DesktopHeight - 580) / 2, _ $WS_OVERLAPPEDWINDOW + $WS_CLIPSIBLINGS + $WS_CLIPCHILDREN) GUICtrlCreateObj($oIE, 10, 40, 600, 360) Local $idButton_Back = GUICtrlCreateButton("Back", 10, 420, 100, 30) Local $idButton_Forward = GUICtrlCreateButton("Forward", 120, 420, 100, 30) Local $idButton_Home = GUICtrlCreateButton("Home", 230, 420, 100, 30) Local $idButton_Stop = GUICtrlCreateButton("Stop", 340, 420, 100, 30) Global $g_idError_Message = GUICtrlCreateLabel("", 100, 500, 500, 30) GUICtrlSetColor(-1, 0xff0000) GUISetState(@SW_SHOW) ;Show GUI _IENavigate($oIE, $Site) _IEAction($oIE, "stop") ; Waiting for user to close the window While 1 Local $iMsg = GUIGetMsg() Select Case $iMsg = $GUI_EVENT_CLOSE ExitLoop Case $iMsg = $idButton_Home _IENavigate($oIE, $Site) _IEAction($oIE, "stop") _IEAction($oIE, "back") CheckError("Home", @error, @extended) Case $iMsg = $idButton_Back _IEAction($oIE, "back") CheckError("Back", @error, @extended) Case $iMsg = $idButton_Forward _IEAction($oIE, "forward") CheckError("Forward", @error, @extended) Case $iMsg = $idButton_Stop _IEAction($oIE, "stop") CheckError("Stop", @error, @extended) EndSelect WEnd GUIDelete() Exit Func CheckError($sMsg, $iError, $iExtended) If $iError Then $sMsg = "Error using " & $sMsg & " button (" & $iExtended & ")" Else $sMsg = "" EndIf GUICtrlSetData($g_idError_Message, $sMsg) EndFunc ;==>CheckError Any help would be appreciated
  7. Old thread I just needed to say Thanks I spent Days trying to decode and use my Json file. I found and used your Code and it worked =) Thanks a TON!!!! The json part in my script #Include "JSMN.au3" #Include "File.au3" local $Json1_2 _FileReadToArray(@ScriptDir & "\DatabaseS.db",$Json1_2,0) $json1_3 = _ArrayToString($Json1_2,"") $Json2 = StringStripWS($Json1_3, 8) Local $Obj1 = Jsmn_Decode($Json2) $resault = Jsmn_Get($Obj1, '["response"]["prices"]["10"]["6"]["0"]["last_update"]') ConsoleWrite($resault & @CRLF) Func Jsmn_Get($Var, $Key) If Not $Key Then Return $Var Local $Match = StringRegExp($Key, "(^\[([^\]]+)\])", 3) If IsArray($Match) Then Local $Index = Jsmn_Decode($Match[1]) $Key = StringTrimLeft($Key, StringLen($Match[0])) If IsString($Index) And Jsmn_IsObject($Var) And Jsmn_ObjExists($Var, $Index) Then Local $Ret = Jsmn_Get(Jsmn_ObjGet($Var, $Index), $Key) Return SetError(@Error, 0, $Ret) ElseIf IsNumber($Index) And IsArray($Var) And $Index >= 0 And $Index < UBound($Var) Then Local $Ret = Jsmn_Get($Var[$Index], $Key) Return SetError(@Error, 0, $Ret) Else Return SetError(1, 0, "") EndIf EndIf Return SetError(2, 0, "") EndFunc
  8. My code so far I cant get it to loop, and I want it to output to a txt file. $file = "a.txt" FileOpen($file, 0) $String = FileReadLine($file) $Start = 'Website.com/profiles/' $End = '">' Func _StringBetween($String, $Start, $End = 0) $Start = StringInStr($String, $Start)+StringLen($Start) return StringMid($String, $Start, StringInStr($String, $End)-$Start) EndFunc MsgBox(0, "Test", _StringBetween($String, $Start, $End))
  9. I have a group of text files that I need to search through containing multiple of these strings. <a href="http://Website.com/profiles/76561198034531966"> What i need to do is pull random Numbers. eg. 76561198034531966 or the entire string. is there anyway i can do this? if so can someone help me Code this? I have a Basic knowledge in using autoit Thanks in Advance,
×
×
  • Create New...