jokke

Heya, Working on a project to make a client, what i want to do is make the client as light weight as possible, and not atleast i want to keep updating the client to a bare minimum. So i got to thinking would it be possible to "transfer" code i want executed, and how complicated can i go? $result = Execute('Msgbox(4+32,"Question","My question here....")') ConsoleWrite("key " & $result & @CRLF) Would it be possible to execute a function? All input appreciated

Theres no control, thats why its blank Well i am sending single keys just fine, but once i start mixing up more keystrokes at once it just wont send em. ControlSend("win","","","+{F1}") Results sending F1 but not the Shift. As i worte as a side note, when i activate the window and use Send it works.

Heya, ime stuggling abit to make my ControlSend send Both Shift and F1 at once. These things iwe tried: ControlSend("win","","","+{F1}") ;------------------------------------------ ControlSend("win","","","{SHIFTDOWN}{F1}") ControlSend("win","","","{SHIFTUP}") ;------------------------------------------ ControlSend("win","","","{SHIFTDOWN}") ControlSend("win","","","{F1}") ControlSend("win","","","{SHIFTUP}") ;------------------------------------------ oh, i tried with both send flags (0/1). As a sidenote, if i activate the window then use: WinActivate("win","") Sleep(100) Send("+{F1}") That works, but having to activate the window means the process will interfere with other thing's as im trying to automate this task. Any ideas?

This was actually my goal of this, making the wmi call more like how a regular SQL select is done. #include <array.au3> $a = _querywmi("SELECT * FROM Win32_OperatingSystem") _ArrayDisplay($a, "query") Func _querywmi($query, $strComputer = "localhost") $wbemFlagReturnImmediately = 0x10 $wbemFlagForwardOnly = 0x20 $objWMIService = ObjGet("winmgmts:\\" & $strComputer & "\root\CIMV2") $specificObj = $objWMIService.ExecQuery($query, "WQL", $wbemFlagReturnImmediately + $wbemFlagForwardOnly) If IsObj($specificObj) Then For $obj In $specificObj For $objProperty In $obj.Properties_() If Not IsDeclared("r") Then Local $r[1][2] Else ReDim $r[UBound($r) + 1][2] EndIf $r[UBound($r) - 1][0] = $objProperty.Name If $objProperty.IsArray = True Then $t = $objProperty.Value $r[UBound($r) - 1][1] = _ArrayToString($t,@TAB) ElseIf $objProperty.CIMTYPE = 101 Then $r[UBound($r) - 1][1] = WMIDateStringToDate($objProperty.Value) Else $r[UBound($r) - 1][1] = $objProperty.Value EndIf Next Next EndIf If IsDeclared("r") Then Return $r Else Return False EndIf EndFunc ;==>_querywmi Func WMIDateStringToDate($dtmDate) Return (StringMid($dtmDate, 5, 2) & "/" & _ StringMid($dtmDate, 7, 2) & "/" & StringLeft($dtmDate, 4) _ & " " & StringMid($dtmDate, 9, 2) & ":" & StringMid($dtmDate, 11, 2) & ":" & StringMid($dtmDate,13, 2)) EndFunc

Perfect thanks!!

Hi! Im trying to write a com object where i want to fetch the key and value of the returned sql object. Heres an failed atempt: #include <array.au3> $a = _querywmi("Win32_UserAccount") _ArrayDisplay($a,"query") Func _querywmi($class = "Win32_UserAccount", $strComputer = "localhost") $wbemFlagReturnImmediately = 0x10 $wbemFlagForwardOnly = 0x20 $objWMIService = ObjGet("winmgmts:\\" & $strComputer & "\root\CIMV2") $specificObj = $objWMIService.ExecQuery("SELECT * FROM " & $class & "", "WQL", $wbemFlagReturnImmediately + $wbemFlagForwardOnly) If isObj($specificObj) then For $obj In $specificObj If Not IsDeclared("r") Then Local $r[1][2] $r[0][0] = $obj.Key $r[0][0] = $obj.Value Else ReDim $r[UBound($r)+1][2] $r[UBound($r)-1][0] = $obj.Key $r[UBound($r)-1][1] = $obj.Value EndIf Next EndIf Return $r EndFunc All feedback appreciated

Anyone actually able to download the file?

Hai, topic basicly says it all. Iwe not played with _IE automation for years and i cant seem to find the code i used back then. Anyways, does anyone have a snippet on how to turn images off? Thanks

Just to make number thingy easier add this code. Add this somewhere at the top. $mynum = "";Mafia Wars profile number. Then do a replace: Find What: 10979261223 Replace with: "&$mynum&" I like the idea, ima start write this into objects so it can be used inn a dynamic matter

Yeah, after i thought for a while i thought so aswell. Well then what he requested should be possible.

#1, Read sourcecode from a site (www.*.com/ulid_k.php) If this was possible then the use of the system itself has failed. If you want to read the source from a server you would need a backdoor, and this is not the place to take that discussion. EDIT: Are you sure you mean the php source code, or the html output ?

Another thing, AlmarM how did you go forth to find the variables ? (Never seen on flash scripts.)

Well some time you still have to use memory reading / writing to do this, but inn this example its actual object interference, witch is damn cool!

Another snippet: #include <GUIConstantsEx.au3> GUICreate("font") $size = 9 ;Font size. $weight = 600 ;Font weight $attribute = 0 ;To define italic:2 underlined:4 strike:8 char format (add together the values of all the styles required, 2+4 = italic and underlined). $font = "Comic Sans MS" ;Font name. $handle = GUICtrlCreateLabel("bold text",10,10,100,20) GUICtrlSetFont($handle,$size, $weight, $attribute, $font) GUISetState() While 1 $msg = GUIGetMsg() If $msg = $GUI_EVENT_CLOSE Then ExitLoop WEnd

GUI control: Weight is the "boldness" GUICtrlSetFont (controlID, size [, weight [, attribute [, fontname]]] ) Edit: Oh and 600 is "normal" bold.