Beiträge von Greek

Greek

Keine Ahnung...
hat hier jemand Vista oder Windows 7 und testet es mal?

Greek

[autoit]

SoundPlay(@WindowsDir & "\media\tada.wav",1)

[/autoit]

Greek

Müsste doch so bei jedem Funktionieren:

[autoit]

Global Const $mQuickLaunchFolder = @AppDataDir&"\Microsoft\Internet Explorer\Quick Launch"

[/autoit][autoit][/autoit][autoit]

ShellExecute($mQuickLaunchFolder)

[/autoit]

Greek

So kannste die Buttons wieder benutzen:

Spoiler anzeigen

[autoit]

#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Res_Description=(c) Pre-Beta-Zeuchs-Scripter seTT
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#cs ----------------------------------------------------------------------------

[/autoit] [autoit][/autoit] [autoit]

AutoIt Version: 3.3.0.0
Author: seTT

[/autoit] [autoit][/autoit] [autoit]

Script Function:
Template AutoIt script.

[/autoit] [autoit][/autoit] [autoit]

#ce ----------------------------------------------------------------------------

[/autoit] [autoit][/autoit] [autoit]

; Script Start - Add your code below here

[/autoit] [autoit][/autoit] [autoit]

#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <ButtonConstants.au3>

[/autoit] [autoit][/autoit] [autoit]

Global $Button1, $Button2

[/autoit] [autoit][/autoit] [autoit]

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Test", 608, 490, 184, 125)
;$Pic1 = GUICtrlCreatePic("C:\Users\Robert\Documents\ICQ\556818248\ReceivedFiles\376434353 Ars\gears-of-war.jpg", 0, 30, 625, 441)
$Label1 = GUICtrlCreateLabel( @TAB&@TAB&@TAB&@TAB&@TAB&@TAB&@TAB&@TAB&@TAB&@TAB&@TAB&@TAB&@CRLF& _
@TAB&@TAB&@TAB&@TAB&@TAB&@TAB&@TAB&@TAB&@TAB&@TAB&@TAB&@TAB&@CRLF& _
@TAB&@TAB&@TAB&@TAB&@TAB&@TAB&@TAB&@TAB&@TAB&@TAB&@TAB&@TAB&@CRLF& _
@TAB&@TAB&@TAB&@TAB&@TAB&@TAB&@TAB&@TAB&@TAB&@TAB&@TAB&@TAB&@CRLF& _
@TAB&@TAB&@TAB&@TAB&@TAB&@TAB&@TAB&@TAB&@TAB&@TAB&@TAB&@TAB&@CRLF& _
@TAB&@TAB&@TAB&@TAB&@TAB&@TAB&@TAB&@TAB&@TAB&@TAB&@TAB&@TAB&@CRLF, 0, 0, 610, -1)
GUICtrlSetBkColor (-1, 0x000000)
GUICtrlSetColor(-1, 0xFFFFFF)
GUICtrlSetState(-1, $GUI_DISABLE)
$Label2 = GuiCtrlCreateLabel( @TAB&@TAB&@TAB&@TAB&@TAB&@TAB&@TAB&@TAB&@TAB&@TAB&@TAB&@TAB&@CRLF& _
@TAB&@TAB&@TAB&@TAB&@TAB&@TAB&@TAB&@TAB&@TAB&@TAB&@TAB&@TAB&@CRLF& _
@TAB&@TAB&@TAB&@TAB&@TAB&@TAB&@TAB&@TAB&@TAB&@TAB&@TAB&@TAB&@CRLF& _
@TAB&@TAB&@TAB&@TAB&@TAB&@TAB&@TAB&@TAB&@TAB&@TAB&@TAB&@TAB&@CRLF& _
@TAB&@TAB&@TAB&@TAB&@TAB&@TAB&@TAB&@TAB&@TAB&@TAB&@TAB&@TAB&@CRLF& _
@TAB&@TAB&@TAB&@TAB&@TAB&@TAB&@TAB&@TAB&@TAB&@TAB&@TAB&@TAB&@CRLF& _
@TAB&@TAB&@TAB&@TAB&@TAB&@TAB&@TAB&@TAB&@TAB&@TAB&@TAB&@TAB&@CRLF, 1, 350, 610, -1)
GUICtrlSetBkColor (-1, 0x000000)
GUICtrlSetColor(-1, 0xFFFFFF)
GUICtrlSetFont(-1, 10)
GUICtrlSetState(-1, $GUI_DISABLE)
$Button1 = GuiCtrlCreateButton("Text Text Text", 50, 410, -1, -1)
GUICtrlSetBkColor (-1, 0x000000)
GUICtrlSetColor(-1, 0xFFFFFF)
$Button2 = GuiCtrlCreateButton("Text2 Text2 Text2", 440, 410, -1, -1)
GUICtrlSetBkColor (-1, 0x000000)
GUICtrlSetColor(-1, 0xFFFFFF)

[/autoit] [autoit][/autoit] [autoit]

GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

[/autoit] [autoit][/autoit] [autoit]

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
MsgBox(0,"","klappt1")
;Shutdown (9)
Case $Button2
MsgBox(0,"","klappt2")
;ProgressOn("Läd...", "Lade")
; For $i = 0 to 101 step 1
; ProgressSet($i,"Lade..")
; Sleep ( 10 )
; Next
;ProgressOff()

[/autoit] [autoit][/autoit] [autoit]

EndSwitch
WEnd

[/autoit]

Sieht aber trotzdem komisch aus was du da gemacht hast^^, gibt andere Wege das zu machen.

Greek

Jup, ist bei mir auch so ( XP SP3), ist echt Toll, wusste ich noch garnicht

Greek

Alles gute Progandy!

Greek

Zitat von Matthias_199

Aber zur CPU wie viele rechenkerne und wie weit die ausgelastet sind finde ich nix

Probier das mal:

Spoiler anzeigen

[autoit]

$objRefresher = ObjCreate("WbemScripting.SWbemRefresher")

[/autoit] [autoit][/autoit] [autoit]

$objWMIService = ObjGet("winmgmts:\\localhost\root\CIMV2")

[/autoit] [autoit][/autoit] [autoit]

$objRefreshableItem = $objRefresher.AddEnum($objWMIService , "Win32_PerfFormattedData_PerfOS_Processor")

[/autoit] [autoit][/autoit] [autoit]

$objRefresher.Refresh

[/autoit] [autoit][/autoit] [autoit]

If IsObj($objRefreshableItem) Then
$i = 0
For $objItem In $objRefreshableItem.ObjectSet
$i += 1
Next
EndIf
Global $aCPU[$i]

[/autoit] [autoit][/autoit] [autoit]

While 1

[/autoit] [autoit][/autoit] [autoit]

$objRefresher.Refresh
If IsObj($objRefreshableItem) Then
$i = 0
For $objItem In $objRefreshableItem.ObjectSet
$aCPU[$i] = $objItem.PercentProcessorTime
$i += 1
Next
EndIf
ConsoleWrite("============" & @CRLF)
For $i = 0 To UBound($aCPU)-2
ConsoleWrite("Core "&$i+1&": "&$aCPU[$i] & @CRLF)
Next
ConsoleWrite("Gesamt: "&$aCPU[UBound($aCPU)-1] & @CRLF)
Sleep(500)
WEnd

[/autoit] [autoit][/autoit] [autoit]

Func OnAutoItExit()
$objRefresher.DeleteAll
EndFunc

[/autoit]

Greek

Zitat von Schnitzel

jaaa n video

(also wenn du zeit hast, würd mich auch intressieren)

Nagut, hab mal eins schnell gemacht

Hier gehts zum Video

Ist aber für Prototype, hab jetzt keinen hohen Pointer für andere Programme gehabt sry. Vergebt mir

Greek

Zitat von ChrisEU

also geht es nicht, das autoit das selber macht, sodass man komplett unabhängig von CE ist. Das, sobald man das Script weiter gibt, es auch auf dem anderen PC funktioniert?!

Doch! Ich glaub ich muss nen Video machen

Du sollst ganz einfach, den Prozess Öffnen, dann auf Add Address Manually gehen, und bei Address atioglxx.dll+00166E0C reinschreiben, dann auf Ok. Jetzt hast du die "Addierte" Adresse von atioglxx.dll+00166E0C in der Liste unten stehen. Die ist auch statisch! Das ist dann genau das selbe wie atioglxx.dll+00166E0C , nur das du damit auch was Anfangen kannst , keine Ahnung warum CE da erst atioglxx.dll+00166E0C hinschreibt und nicht gleich die richtige Adresse schreibt.

Greek

Ja schon klar^^, das hab ich doch extra geschrieben

Kannst du dir von CE ausgeben lassen, so wie ich es gesagt hab:

Zitat

Du musst auf Add Address Manually gehen, da bei Address of Pointer atioglxx.dll+00166E0C reinschreibe ( Prozess muss ausgewählt sein ), jetzt steht da obendrüber die Adresse die du brauchst ( Kannst auch auf Ok drücken und sie steht unten drin).

So grigst du die "Addierte" Adresse.

Greek

Ja die Adressen atioglxx.dll+00166E0C müssen ja erst "addiert" werden damit du es in AutoIt nutzen kannst, dann musste es eigentlich nur so machen wie in dem Beispiel, die Offsets müssen Dezimal sein und der erste Offset immer 0 ( $av_Offset[0]=0 ), steht ja bei der Beschreibung drin. Musst dir immer den Return von der Funktion anschauen und gucken ob es auf die richtige Adresse zeigt.

Greek

Ist aber kein Bot oder so? Bin mir gerade nicht sicher ob ich noch helfen darf^^,

Du musst auf Add Address Manually gehen,, da bei Address of Pointer atioglxx.dll+00166E0C reinschreibe ( Prozess muss ausgewählt sein ), jetzt steht da obendrüber die Adresse die du brauchst ( Kannst auch auf Ok drücken und sie steht unten drin).

Greek

Ohne _IsPressed geht das glaubich nicht, warum willste das nicht verwenden?

Greek

Hier ein Beispiel für Pinball:

Spoiler anzeigen

[autoit]

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <Pointer.au3>
SetPrivilege("SeDebugPrivilege", 1)

[/autoit] [autoit][/autoit] [autoit]

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Pinball", 207, 75, 361, 194)
$Button1 = GUICtrlCreateButton("Wert lesen", 8, 8, 83, 25, 0)
$Button2 = GUICtrlCreateButton("Wert schreiben", 112, 8, 83, 25, 0)
$Label1 = GUICtrlCreateLabel("", 10, 40, 300, 50)
GUICtrlSetFont ( -1, 16 )
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

[/autoit] [autoit][/autoit] [autoit]

AdlibEnable ( "PinballPointerLesen" )

[/autoit] [autoit][/autoit] [autoit]

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
PinballPointerLesen()
Case $Button2
PinballPointerSchreiben()
EndSwitch
WEnd

[/autoit] [autoit][/autoit] [autoit]

Func PinballPointerLesen()
$pid = ProcessExists("Pinball.exe")
$pinball=_MemoryOpen ( $pid )

[/autoit] [autoit][/autoit] [autoit]

If $pid = 0 Then
MsgBox(16,@ScriptName,'Prozess nicht gefunden, Skript wird beendet.')
Exit 1
EndIf

[/autoit] [autoit][/autoit] [autoit]

Local $av_Offset[2]
$av_Offset[0]=0
$av_Offset[1]=82

[/autoit] [autoit][/autoit] [autoit]

$PointerReadReturn=_MemoryPointerRead ( 0x01025040, $pinball, $av_Offset )
GUICtrlSetData ( $Label1, $PointerReadReturn[1] )
EndFunc

[/autoit] [autoit][/autoit] [autoit]

Func PinballPointerSchreiben()
$score=InputBox ( "Wert eingeben", "Wie hoch soll der Score werden ?", "" )
$pid = ProcessExists("Pinball.exe")
$pinball=_MemoryOpen ( $pid )

[/autoit] [autoit][/autoit] [autoit]

If $pid = 0 Then
MsgBox(16,@ScriptName,'Prozess nicht gefunden, Skript wird beendet.')
Exit 1
EndIf

[/autoit] [autoit][/autoit] [autoit]

Local $av_Offset[2]
$av_Offset[0]=0
$av_Offset[1]=82

[/autoit] [autoit][/autoit] [autoit]

$return=_MemoryPointerWrite ( 0x01025040, $pinball, $av_Offset, $score )
EndFunc

[/autoit]

Greek

Brauchste eine Include dafür, habs im Anhang für dich hochgeladen.

Greek

[autoit]

_FireFoxOpen()

[/autoit]

Würde das nicht so Nennen, ShellExecute öffnet immer den Standartbrowser

Greek

So kann das nicht klappen, du musst ja immer wieder mit TimerDiff nach dem Wert schauen, sonst Hast du nur den Wert aus den ersten Beiden Zeilen.

Spoiler anzeigen

[autoit]

Global $begin = TimerInit()

[/autoit] [autoit][/autoit] [autoit]

Global $1= 10000; ini read
Global $time1=0
Global $time1=$time1+$1

[/autoit] [autoit][/autoit] [autoit]

timesystem()

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

func timesystem()
$timegone = TimerDiff($begin)
MsgBox(0,"",$timegone)
sleep(6000)
if $timegone > $time1 Then
MsgBox(0,"","Grösser")
$time1=$time1+$1
EndIf

[/autoit] [autoit][/autoit] [autoit]

timesystem()

[/autoit] [autoit][/autoit] [autoit]

EndFunc

[/autoit]

( Glaub dein Skript stürzt auch irgendwie wann ab, weil du eine rekusität ohne abbruchs Bedingung hast. )

Greek

Update:

Wenn der Shoutbox Client minimiert ist werdet ihr per TrayTip benachrichtigt wenn jemand etwas geschrieben hat und von wem.

Greek

Von mir auch noch alles Gute nachträglich

Greek

Zitat von HappySource18

öh... was? Welche Hilfe

Du musst F1 drücken, dann öffnet sich die Hilfe ( das hatte mir am Anfang auch keiner gesagt^^ )

Du kannst auch mit einem Style das GUI immer oben halten:

[autoit]

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>

[/autoit][autoit][/autoit][autoit][/autoit][autoit]

$MainGUI=GUICreate("",400,300,-1,-1,-1,$WS_EX_TOPMOST)
GUISetState()

[/autoit][autoit][/autoit][autoit]

While 1
$msg=GUIGetMsg()
Switch $msg
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
WEnd

[/autoit]

Beiträge von Greek

"Quicklaunch" Pfad auslesen?

Ein Sound bei Connect

"Quicklaunch" Pfad auslesen?

[Button] Porblem bei Überlappung

Ist das nur bei mir so?

Alles gute ProgAndy

CPU und Mem vom prozess

Memory & Pointer

Memory & Pointer

Memory & Pointer

Memory & Pointer

Memory & Pointer

Eingabe von Wörtern abprüfen

Memory & Pointer

Memory & Pointer

URL Schnell Öffner

Timerinet Frage

Shoutbox Chat

Geeeeeeeeeeeeeeeeeeeeeeeeburtstag

GUI im Vordergrund