Misuna

Hello, I wanna make a script, which can "translate" a textpiece written in an inputbox to something else that I decide. I just can't figure out how I tell the script, that when for an example an A has been written in the inputbox, it is to display 7T below. Thanks in advance

Hi, sorry for the nobie question, but i found this Compinfo "script" with UDFs collecting hardware information, but I don't know how to ingrate them in a gui instead of a msgbox? Compinfo: '?do=embed' frameborder='0' data-embedContent>>

Dude, this is cool!

Hi I've the problem, that _IELinkClickByText doesn't work (func is called: Google). I want´it to pick the first Google result, but nothing happens. Does anyone have an idea why? thanks in advance #include <ButtonConstants.au3> #include <GUIConstantsEx.au3> #include <StaticConstants.au3> #include <WindowsConstants.au3> #include <inet.au3> #include <IE.au3> #include <ColorConstants.au3> #include-once #NoTrayIcon #Region ;**** Directives created by AutoIt3Wrapper_GUI **** #AutoIt3Wrapper_Icon=prog.ico #AutoIt3Wrapper_Outfile=Pc Komponenter .exe #AutoIt3Wrapper_UseUpx=n #AutoIt3Wrapper_UseX64=n #EndRegion ;**** Directives created by AutoIt3Wrapper_GUI **** #Region find OS Dim $OS = @OSVersion ; OS Version Dim $textos = ""; Output tekst til msgbox. Switch $OS ; Et Switch statement. For at gøre de sammlede data bedre læsbare. Case "WIN_2008" $OS = "Windows Server 2008" Case "WIN_81" $OS = "Windows 8.1" Case "WIN_8" $OS = "Windows 8" Case "WIN_7" $OS = "Windows 7" Case "WIN_VISTA" $OS = "Windows Vista" Case "WIN_2003" $OS = "Windows Server 2003" Case "WIN_XP" $OS = "Windows XP" Case "WIN_2000" $OS = "Windows 2000" Case "WIN_NT4" $OS = "Windows NT 4.0" Case "WIN_ME" $OS = "Windows ME" Case "WIN_98" $OS = "Windows 98" Case "WIN_95" $OS = "Windows 95" Case Else $OS = "Ukendt" EndSwitch $textos &= "OS = " & $OS #EndRegion #Region GPU $textgpu = "" Dim $Obj_WMIService = ObjGet("winmgmts:\\" & "localhost" & "\root\cimv2") Dim $Obj_Services = $Obj_WMIService.ExecQuery("Select * from Win32_VideoController") Local $Obj_Item For $Obj_Item In $Obj_Services $textgpu &= $Obj_Item.Name Next #EndRegion #Region RAM $textram = "" Dim $Obj_WMIService = ObjGet("winmgmts:\\" & "localhost" & "\root\cimv2") Dim $Obj_Services = $Obj_WMIService.ExecQuery("Select * from Win32_PhysicalMemory") Local $Obj_Item For $Obj_Item In $Obj_Services $textram &= $Obj_Item.Speed & @crlf Next #EndRegion #Region Motherboard $textmobo1 = "" Dim $Obj_WMIService = ObjGet("winmgmts:\\" & "localhost" & "\root\cimv2") Dim $Obj_Services = $Obj_WMIService.ExecQuery("Select * from Win32_ComputerSystem") Local $Obj_Item For $Obj_Item In $Obj_Services $manufacturer = $Obj_Item.Manufacturer Next $textmobo1 &= $manufacturer $textmobo2 = "" Dim $Obj_WMIService = ObjGet("winmgmts:\\" & "localhost" & "\root\cimv2") Dim $Obj_Services = $Obj_WMIService.ExecQuery("Select * from Win32_ComputerSystem") Local $Obj_Item For $Obj_Item In $Obj_Services $model = $Obj_Item.Model Next $textmobo2 &= $model #EndRegion #Region CPU $Output = "" $objWMIService = ObjGet("winmgmts:\\localhost\root\CIMV2") Local $colItems = $objWMIService.ExecQuery("SELECT Name FROM Win32_Processor", "WQL", 0x10 + 0x20) If IsObj($colItems) then For $objItem In $colItems $Output &= $objItem.Name Next Endif ; GuiCtrlSetData($label, $Output ) ; to write it in a label #EndRegion Opt("GUIOnEventMode", 1) Global $hGUI2, $hButton2 ; Predeclare these variables gui1() Func gui1() $hGUI1 = GUICreate("Hvad sidder der i min computer?", 614, 436, 300, 125) GUISetOnEvent($GUI_EVENT_CLOSE, "On_Close_Main") ; Run this function when the main GUI [X] is clicked $Components = GUICtrlCreateLabel("Komponenten", 208, 32, 190, 43) GUICtrlSetFont(-1, 24, 400, 0, "Calibri") $ComputerName = GUICtrlCreateLabel("Computername", 472, 8, 130, 27) GUICtrlSetFont(-1, 14, 400, 0, "Calibri") $Name = GUICtrlCreateLabel(@ComputerName, 472, 32, 100, 19) GUICtrlSetFont(-1, 10, 400, 0, "Calibri") $Bruger = GUICtrlCreateLabel(@UserName, 472, 48, 100, 19) GUICtrlSetFont(-1, 10, 400, 0, "Calibri") $OS = GUICtrlCreateLabel($textos, 472, 62, 128, 19) GUICtrlSetFont(-1, 10, 400, 0, "Calibri") $CPU = GUICtrlCreateLabel("Prozessor", 48, 120, 80, 27) GUICtrlSetFont(-1, 14, 400, 0, "Calibri") $Hvilken_CPU = GUICtrlCreateLabel($Output, 208, 120, 356, 27) GUICtrlSetFont(-1, 14, 400, 0, "Calibri") $GPU = GUICtrlCreateLabel("Grafikkarte", 48, 176, 100, 27) GUICtrlSetFont(-1, 14, 400, 0, "Corbel") $Hvilken_GPU = GUICtrlCreateLabel($textgpu, 208, 176, 308, 27) GUICtrlSetFont(-1, 14, 400, 0, "Calibri") $RAM = GUICtrlCreateLabel("Arbeitsspeicher", 48, 232, 140, 27) GUICtrlSetFont(-1, 14, 400, 0, "Calibri") Local $aMem = MemGetStats() $Hvor_Meget_RAM = GUICtrlCreateLabel(Floor($aMem[1]/900000) & "GB", 208, 232, 150, 27) GUICtrlSetFont(-1, 14, 400, 0, "Calibri") $Hvor_Meget_RAMSpeed = GUICtrlCreateLabel($textram, 280, 232, 150, 27) GUICtrlSetFont(-1, 14, 400, 0, "Calibri") $Hvor_Meget_RAMMhz = GUICtrlCreateLabel("Mhz", 320, 232, 150, 27) GUICtrlSetFont(-1, 14, 400, 0, "Calibri") $HDD_Space = GUICtrlCreateLabel("Festplatte", 48, 344, 140, 27) GUICtrlSetFont(-1, 14, 400, 0, "Corbel") Local $iFreeSpace = DriveSpaceFree("C:") $Hvor_Meget_Lagerplads = GUICtrlCreateLabel(Floor($iFreeSpace/1024) & "GB", 208, 344, 150, 27) GUICtrlSetFont(-1, 14, 400, 0, "Calibri") $af = GUICtrlCreateLabel("frei von", 280, 344, 65, 27) GUICtrlSetFont(-1, 14, 400, 0, "Calibri") Local $iTotalSpace = DriveSpaceTotal("C:") $Hvor_Meget_Totallagerplads = GUICtrlCreateLabel(Floor($iTotalSpace/1024) & "GB", 350, 344, 200, 27) GUICtrlSetFont(-1, 14, 400, 0, "Calibri") $Mobo = GUICtrlCreateLabel("Mainboard", 48, 288, 80, 27) GUICtrlSetFont(-1, 14, 400, 0, "Calibri") $Hvilket_Bundkort = GUICtrlCreateLabel($textmobo1, 208, 288, 341, 27) GUICtrlSetFont(-1, 14, 400, 0, "Calibri") $Hvilket_Bundkort2 = GUICtrlCreateLabel($textmobo2, 280, 288, 341, 27) GUICtrlSetFont(-1, 14, 400, 0, "Calibri") $Copyright_MisunaDK = GUICtrlCreateLabel("Copyright MisunaDK", 504, 416, 102, 17) GUICtrlSetFont(-1, 8, 400, 0, "Calibri") $Button1 = GUICtrlCreateButton("Schliessen", 345, 400, 73, 25) GUICtrlSetOnEvent($Button1, "Close") $Button2 = GUICtrlCreateButton("Beurteile", 265, 400, 75, 25) GUICtrlSetOnEvent($Button2,"Rate") $Button3 = GUICtrlCreateButton("Hilfe", 185, 400, 75, 25) GUICtrlSetOnEvent($Button3,"hjaelp") GUISetState(@SW_SHOW) While 1 Sleep(10) WEnd EndFunc Func gui2() $hGUI2 = GUICreate("F.A.Q.", 400, 300, 410, 200) GUISetOnEvent($GUI_EVENT_CLOSE, "On_Close_Secondary_Gui") ; Run this function when the secondary GUI [X] is clicked GUICtrlCreateLabel("hier", 72, 142, 75, 23) GUICtrlSetOnEvent(-1, "google") GUICtrlCreateLabel("'game-debate'" , 100, 100) GUICtrlSetOnEvent(-1, "gamedebate") $tekst = GUICtrlCreateLabel("Welche Marke ist meinen Computer?" & @CRLF & _ "- Wenn du deinen Computer nicht selbst gebaut hast, ist die" & @CRLF & _ " Name des Mainboards normalerweise auch die Marke" & @CRLF & _ ""& @CRLF & _ "Kann ich ...spielen?" & @CRLF & _ "- Guck mal auf nach." & @CRLF & _ ""& @CRLF & _ "Welche intel HD graphics family Karte habe ich?" & @CRLF & _ "- 1. Drück" & @CRLF & _ " 2. Wähl 'ARK|intel'" & @CRLF & _ " 3. Scroll runter zum Graphics specifications - Processor Graphics", 20, 30, 350, 590) GUICtrlSetFont(-1, 9, 400, 0, "Calibri") GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT) GUISetState() EndFunc #Region Funcs Func On_Close_Main() Exit EndFunc Func On_Close_Secondary_Gui() GUIDelete($hGUI2) GUICtrlSetState($hButton2, $GUI_ENABLE) EndFunc Func hjaelp() GUICtrlSetState($hButton2, $GUI_DISABLE) gui2() EndFunc Func Close() Exit EndFunc Func Rate() ShellExecute("http://misuna.webs.com/din-mening") EndFunc ;Func google() ; Run("C:\Programme\Internet Explorer\iexplore.exe http://www.google.dk/#q=" & _INetExplorerCapable($output) & " graphics") ; _IELinkClickByText($oIE, "ARK") ;EndFunc Func google() $oIE = _IECreate("http://www.google.de/#q=" & ($output) & " graphics") _IELinkClickByText($oIE, "AMD", 0) EndFunc Func gamedebate() ShellExecute("http://www.game-debate.com") EndFunc #EndRegion

I've tried this out, but it only opens the Google site... #include <IE.au3> Local $oIE = _IECreate("http://www.google.de/#q=2620m") Local $sMyString = "ARK | Intel®" Local $oLinks = _IELinkGetCollection($oIE) For $oLink In $oLinks Local $sLinkText = _IEPropertyGet($oLink, "innerText") If StringInStr($sLinkText, $sMyString) Then _IEAction($oLink, "click") ExitLoop EndIf Next

Hi I have this script, where after clicking on a button IE starts and makes a Google search. Now after the search the ARK/Intel side pops up (always). Is there any way, that my button can select the site automaticly? $Output = processor Name and manufacturer Func google() Run("C:\Programme\Internet Explorer\iexplore.exe http://www.google.dk/#q=" & _INetExplorerCapable($output) & " graphics") EndFunc

Thanks a lot

Hi So i recently asked how to get the name of your CPU shown in a gui, but I have a few other quistens too. I can't find a way that works to show RAM speed, name and brand of your motherboard and name and brand of your GPU. Is there any way to do so? (Of course there is, I just don't know how )

Thanks a lot

I already have a GUI, the problem is that i don´t know how to get the "answer" (the name of the CPU) written on a label. This is the GUI/programm #NoTrayIcon #Region ;**** Directives created by AutoIt3Wrapper_GUI **** #AutoIt3Wrapper_Icon=prog.ico #AutoIt3Wrapper_Outfile=Pc Komponenter .exe #AutoIt3Wrapper_UseUpx=n #AutoIt3Wrapper_UseX64=n #EndRegion ;**** Directives created by AutoIt3Wrapper_GUI **** #Region find OS Dim $OS = @OSVersion ; OS Version Dim $text = ""; Output text for message box. Switch $OS ; A Switch statement. We are going to make the value returned by @OSVERSION more readable. Case "WIN_2008" $OS = "Windows Server 2008" Case "WIN_8" $OS = "Windows 8" Case "WIN_7" $OS = "Windows 7" Case "WIN_VISTA" $OS = "Windows Vista" Case "WIN_2003" $OS = "Windows Server 2003" Case "WIN_XP" $OS = "Windows XP" Case "WIN_2000" $OS = "Windows 2000" Case "WIN_NT4" $OS = "Windows NT 4.0" Case "WIN_ME" $OS = "Windows ME" Case "WIN_98" $OS = "Windows 98" Case "WIN_95" $OS = "Windows 95" Case Else $OS = "Ukendt" EndSwitch $text &= "OS = " & $OS #EndRegion #include <ButtonConstants.au3> #include <GUIConstantsEx.au3> #include <StaticConstants.au3> #include <WindowsConstants.au3> #include <MsgBoxConstants.au3> #include "CompInfo.au3" #include-once #Region ### START Koda GUI section ### Form=e:\autoit\pc system\pc komponenter.kxf ;GUItal f. eks. ("Components Finder", 615, 438, 192, 124) = ("tekst", længde fra venstre kant, længde fra top kant, block længde (fra side til side), sidste vides ikke... Opt("GuiOnEventMode", 1) $Form1_1 = GUICreate("Hvad sidder der i min computer?", 614, 436, 193, 125) $Components = GUICtrlCreateLabel("Komponenter", 208, 32, 190, 43) GUICtrlSetFont(-1, 24, 400, 0, "Calibri") $ComputerName = GUICtrlCreateLabel("Computernavn", 472, 8, 130, 27) GUICtrlSetFont(-1, 14, 400, 0, "Calibri") $Name = GUICtrlCreateLabel(@ComputerName, 472, 32, 100, 19) GUICtrlSetFont(-1, 10, 400, 0, "Calibri") $Bruger = GUICtrlCreateLabel(@UserName, 472, 48, 100, 19) GUICtrlSetFont(-1, 10, 400, 0, "Calibri") $OS = GUICtrlCreateLabel($text, 472, 62, 128, 19) GUICtrlSetFont(-1, 10, 400, 0, "Calibri") $CPU = GUICtrlCreateLabel("Processor", 48, 120, 80, 27) GUICtrlSetFont(-1, 14, 400, 0, "Calibri") $Hvilken_CPU = GUICtrlCreateLabel("Which CPU", 208, 120, 106, 27) GUICtrlSetFont(-1, 14, 400, 0, "Calibri") $GPU = GUICtrlCreateLabel("Grafikkort", 48, 176, 80, 27) GUICtrlSetFont(-1, 14, 400, 0, "Corbel") $Hvilken_GPU = GUICtrlCreateLabel("Hvilken_GPU", 208, 176, 108, 27) GUICtrlSetFont(-1, 14, 400, 0, "Calibri") $RAM = GUICtrlCreateLabel("Hukommelse (KB)", 48, 232, 140, 27) GUICtrlSetFont(-1, 14, 400, 0, "Calibri") Local $aMem = MemGetStats() $Hvor_Meget_RAM = GUICtrlCreateLabel($aMem[1], 208, 232, 150, 27) GUICtrlSetFont(-1, 14, 400, 0, "Calibri") $Hvor_Meget_RAM = GUICtrlCreateLabel("speed", 308, 232, 150, 27) GUICtrlSetFont(-1, 14, 400, 0, "Calibri") $Hvor_Meget_RAM = GUICtrlCreateLabel("Mhz", 350, 232, 150, 27) GUICtrlSetFont(-1, 14, 400, 0, "Calibri") $HDD_Space = GUICtrlCreateLabel("Harddisk (MB)", 48, 344, 140, 27) GUICtrlSetFont(-1, 14, 400, 0, "Corbel") Local $iFreeSpace = DriveSpaceFree(@HomeDrive & "\") $Hvor_Meget_Lagerplads = GUICtrlCreateLabel($iFreeSpace, 208, 344, 150, 27) GUICtrlSetFont(-1, 14, 400, 0, "Calibri") $af = GUICtrlCreateLabel("/", 400, 344, 45, 27) GUICtrlSetFont(-1, 14, 400, 0, "Calibri") Local $iTotalSpace = DriveSpaceTotal(@HomeDrive & "\") $Hvor_Meget_Totallagerplads = GUICtrlCreateLabel($iTotalSpace, 410, 344, 200, 27) GUICtrlSetFont(-1, 14, 400, 0, "Calibri") $Mobo = GUICtrlCreateLabel("Bundkort", 48, 288, 80, 27) GUICtrlSetFont(-1, 14, 400, 0, "Calibri") $Hvilket_Bundkort = GUICtrlCreateLabel("Mobo", 208, 288, 141, 27) GUICtrlSetFont(-1, 14, 400, 0, "Calibri") $Copyright_MisunaDK = GUICtrlCreateLabel("Copyright MisunaDK", 504, 416, 102, 17) GUICtrlSetFont(-1, 8, 400, 0, "Calibri") $Button1 = GUICtrlCreateButton("Luk", 312, 400, 73, 25) GUICtrlSetOnEvent($Button1, "Close") $Button2 = GUICtrlCreateButton("Bedøm", 232, 400, 75, 25) GUICtrlSetOnEvent($Button2,"Rate") GUISetState(@SW_SHOW) #EndRegion ### END Koda GUI section ### While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE Exit Case $Button1 Case $Button2 EndSwitch WEnd Func Close() Exit EndFunc Func Rate() ShellExecute("http://www.youtube.com/misunadk") EndFunc Func _End() Exit EndFunc

Thanks M23

Hi I´m quiet new to autoit and i have found this script, but I can´t get it to show the processor (or the $read) in a gui label instead of opening a messagebox. Does anybody know how? $PID = Run("wmic cpu get name", '', '', 0x2) While 1 $read = StdoutRead($PID) If @error Then ExitLoop MsgBox(0, '', $read) WEnd