Wer in Windows7 unbedingt wieder einen Klickkrieg führen möchte, um die Kiste stillzulegen der sollte mal bei fokusierten Desktop Alt+F4 drücken. Bin da aber nicht sicher ob ds immernoch funktioniert.
Doch, kannst dir sich sein ;).
Wer in Windows7 unbedingt wieder einen Klickkrieg führen möchte, um die Kiste stillzulegen der sollte mal bei fokusierten Desktop Alt+F4 drücken. Bin da aber nicht sicher ob ds immernoch funktioniert.
Doch, kannst dir sich sein ;).
Also wenn das darum geht solltest eher an ImageX + WAIK denken. Das nutzen wird auch um die Clients wärend der Imagerückspielung den richtige OUs zuzuweißen. Sowas macht man im Normalfall nicht durch irgendwelche nachträglichen Scripts.
Ohne die Seite dazu zu kennen, kann man recht wenig dazu sagen.
Hier gibt es auch sowas von Conan10 und Jautois/CodeFixer -http://udf-portal.bplaced.net/new/</a>
Das ist nur ein Beispiel von vielen gescheiterten Projekten in dem Bereich.
Beginnt nach dem Tastendruck dann erst der Bootvorgang oder ist er dann schon weiter wenn etwas auf dem Bildschirm siehst?
Hatte sowas ähnliches nämlich mit meinem alten SLI-Grafikkartenverbund. Dort wurden manchmal die Karten nicht rechtzeitig inizialisiert und die Monitore sind in sleepmodus. Der Rechner ist dann normal hochgefahren aber man musste noch eine Taste drücken, damit die Monitore wieder aufgewacht sind.
@campweb Deine Pre-Alpha version wirkt wie ein Forum ich dachte das wird eine Download Datenbank?
Wollte ich auch grade fragen.
P.s. Korrigiere meine geschätze Lebensdauer dieser Aktion auf 20 Tage.
Mit "" also so:
[autoit]StringSplit ("abc","a","")
[/autoit]Aber was soll der Sinn dahinter sein?
Nö kein Interesse.
Ich gebe der Sache, genau wie es bei den anderen war, maximal einen Monat. Wer bietet weniger?
Hi,
bin grade dabei ein Multiplayer RPG zu machen. Der Titel und die Story stehen noch nicht ganz fest. Werde hier immer mal wieder den aktuellen Stand posten und auch nach und nach Sachen zum selbst ausprobieren rausgeben. Der Anfang macht mal die erste Grundversion des Mapeditors. Einfach rechts das "Objekt" auswählen und links die Map zusammen klicken. Beim schließen des Fensters wird das ganze dann gespeichert. Viel Spaß beim ausprobieren hehe.
#include <GDIPlus.au3>
#include <GUIConstantsEx.au3>
#include <Misc.au3>
Opt("GuiOnEventMode", 1)
Opt("MouseCoordMode", 2)
OnAutoItExitRegister("_end")
[/autoit] [autoit][/autoit] [autoit]$Gui = GUICreate("Beispiel", 736, 608)
GUISetOnEvent($GUI_EVENT_CLOSE, "CLOSEClicked")
GUISetOnEvent($GUI_EVENT_PRIMARYDOWN, "Chipsetauswahl")
GUISetState(@SW_SHOW)
Dim $selectedposx, $selectedposy
[/autoit] [autoit][/autoit] [autoit]_GDIPlus_Startup()
[/autoit] [autoit][/autoit] [autoit]$chipset = _GDIPlus_ImageLoadFromFile(@ScriptDir & "\1.png")
[/autoit] [autoit][/autoit] [autoit]$graphic = _GDIPlus_GraphicsCreateFromHWND($Gui)
$bitmap = _GDIPlus_BitmapCreateFromGraphics(736, 608, $graphic)
$buffer = _GDIPlus_ImageGetGraphicsContext($bitmap)
_GDIPlus_GraphicsClear($buffer, 0xFF000000)
_GDIPlus_GraphicsDrawImageRectRect($buffer, $chipset, 0, 0, 256, 1024, 608, 0, 128, 512)
_GDIPlus_GraphicsDrawImage($graphic, $bitmap, 0, 0)
$pen = _GDIPlus_PenCreate(0xFFFFFF33,2)
$mouscordsalt = MouseGetPos()
$xposalt = 0
$xposalt = 0
While 1
$mouscords = MouseGetPos()
If $mouscordsalt[0] <> $mouscords[0] Or $mouscordsalt[1] <> $mouscords[1] Then
$mouscordsalt[0] = $mouscords[0]
$mouscordsalt[1] = $mouscords[1]
If $mouscords[0] > 608 And $mouscords[1] > -1 And $mouscords[0] < 801 And $mouscords[1] < 513 Then
$xpos = 608 + 16 * Round((($mouscords[0] - 7 - 608) / 16), 0)
$ypos = 16 * Round((($mouscords[1] - 7) / 16), 0)
If $xposalt <> $xpos Or $yposalt <> $ypos Then
$xposalt = $xpos
$yposalt = $ypos
_GDIPlus_GraphicsDrawImage($graphic, $bitmap, 0, 0)
_GDIPlus_GraphicsDrawRect($graphic, $xpos, $ypos, 16, 16,$pen)
EndIf
ElseIf $mouscords[0] > 0 And $mouscords[1] > -1 And $mouscords[0] < 608 And $mouscords[1] < 608 And $selectedposx <> "" Then
$xpos = 16 * Round((($mouscords[0] - 7) / 16), 0)
$ypos = 16 * Round((($mouscords[1] - 7) / 16), 0)
If $xposalt <> $xpos Or $yposalt <> $ypos Then
$xposalt = $xpos
$yposalt = $ypos
_GDIPlus_GraphicsDrawImage($graphic, $bitmap, 0, 0)
_GDIPlus_GraphicsDrawImageRectRect($graphic, $chipset, ($selectedposx - 608) * 2, $selectedposy * 2, 32, 32, $xpos, $ypos, 16, 16)
EndIf
EndIf
EndIf
Sleep(100)
WEnd
Func Chipsetauswahl()
If $mouscords[0] > 608 And $mouscords[1] > -1 And $mouscords[0] < 801 And $mouscords[1] < 513 Then
_GDIPlus_GraphicsFillRect($buffer, 608, 0, 128, 512)
_GDIPlus_GraphicsDrawImageRectRect($buffer, $chipset, 0, 0, 256, 1024, 608, 0, 128, 512)
$selectedposx = 608 + 16 * Round((($mouscords[0] - 5 - 608) / 16), 0)
$selectedposy = 16 * Round((($mouscords[1] - 5) / 16), 0)
_GDIPlus_GraphicsDrawRect($buffer, $selectedposx, $selectedposy, 16, 16,$pen)
_GDIPlus_GraphicsDrawImage($graphic, $bitmap, 0, 0)
ElseIf $mouscords[0] > 0 And $mouscords[1] > -1 And $mouscords[0] < 608 And $mouscords[1] < 608 And $selectedposx <> "" Then
$xpos = 16 * Round((($mouscords[0] - 7) / 16), 0)
$ypos = 16 * Round((($mouscords[1] - 7) / 16), 0)
_GDIPlus_GraphicsDrawImageRectRect($buffer, $chipset, ($selectedposx - 608) * 2, $selectedposy * 2, 32, 32, $xpos, $ypos, 16, 16)
_GDIPlus_GraphicsDrawImage($graphic, $bitmap, 0, 0)
EndIf
EndFunc ;==>Chipsetauswahl
Func CLOSEClicked()
Exit
EndFunc ;==>CLOSEClicked
Func _end()
$klon = _GDIPlus_BitmapCloneArea($bitmap, 0, 0, 608, 608)
_GDIPlus_ImageSaveToFile($klon, @ScriptDir & "\GDIPlus_Image.png")
_GDIPlus_PenDispose($pen)
_GDIPlus_ImageDispose($chipset)
_GDIPlus_GraphicsDispose($graphic)
_GDIPlus_GraphicsDispose($buffer)
_GDIPlus_BitmapDispose($bitmap)
_GDIPlus_BitmapDispose($klon)
_GDIPlus_Shutdown()
EndFunc ;==>_end
n1 optimal genau so wollte ich das haben.
Hi,
wie kann man bewirken, dass _GDIPlus_ImageSaveToFile nur einen bestimmten Teil des übergeben Bild-Objekt speichert und nicht komplett? z.b. das Bild ist 800x600 groß. Es sollen davon aber nur der Bereich x=0,y=0,x=100,y=100 gespeichert werden.
mfg
Richtig, genau so.
Guckst du hier:
#include <String.au3>
[/autoit] [autoit][/autoit] [autoit]$quellsprache = "de"
$zielsprache = "es"
$uebersetzen = "Tierheim"
$sSource = BinaryToString(InetRead("http://ajax.googleapis.com/ajax/services/language/translate?q=" & $uebersetzen & "&v=1.0&langpair=" & $quellsprache & "|" & $zielsprache))
$eregbnis = _StringBetween($sSource,'translatedText":"','"},')
MsgBox(0, "Deutsch", $uebersetzen)
MsgBox(0, "Spanisch", $eregbnis[0])
Meint eher diese API-Schnittstelle:
http://ajax.googleapis.com/ajax/services/language/translate?q=Tierheim&v=1.0&langpair=de|es
Denke mal über die _IE funktionen kommst da eher ran. Sprich IE versteckt starten und dann dort auslesen.
Kann mich aber auch dunkle dran erinner das es für die Google Übersetzung eine API-Schnittstelle gibt.
Das wird per Javascript nachträglich rein geladen. Das kannst so einfach mit InetRead nicht auslesen, weil bei InetRead des JS-Code nicht ausgeführt wird.
Probier es mal so:
$search = _ArrayFindAll($alink, "http://www.ebay.de/itm", 0, 0, 0, 1); findet alle links in denen das suchwort vorkommt
[/autoit] [autoit][/autoit] [autoit]If $search <> -1 Then ; wenn es links mit dem suchwort gibt...
[/autoit] [autoit][/autoit] [autoit]For $element In $search
[/autoit] [autoit][/autoit] [autoit]_IENavigate($inet, $alink[$element])
Sleep(4000)
$ie_url = _IEPropertyGet($inet, "locationurl")
$source = _INetGetSource($ie_url)
$versandtext = _StringBetween($source, '<span id="fshippingSvc">', "</span>")
$standard = _StringBetween($source, 'class="sh-TblCnt"><div><div role="alert">', "</div>")
_IELinkClickByText($inet, "Alle Details zum Versandanzeigen")
[/autoit] [autoit][/autoit] [autoit]Sleep(1200)
[/autoit] [autoit][/autoit] [autoit]$ColorIndex = 3
#cs
If $excel.Cells($i, 10).Interior.ColorIndex = 16 Then
ContinueLoop
Else
#ce
If $excel.Cells($i, 10).Interior.ColorIndex = 45 Then
ExitLoop
Else
If $excel.Cells($i, 10).Interior.ColorIndex = 5 Then
ExitLoop
Else
If $excel.Cells($i, 10).Interior.ColorIndex = 18 Then
ExitLoop
Else
For $s = 0 To UBound($standard) - 1
Select
[/autoit] [autoit][/autoit] [autoit]Case $versandtext[0] = " - Paketversand"
$ColorIndex = 16
Case $standard[$s] = $versender[0]
$ColorIndex = 45
Case $standard[$s] = $versender[2]
$ColorIndex = 5
Case $standard[$s] = $versender[1]
$ColorIndex = 18
Case $standard[$s] = $versender[4]
$ColorIndex = 45
EndSelect
[/autoit] [autoit][/autoit] [autoit]$excel.Cells($i, 10).Interior.ColorIndex = $ColorIndex
Next
EndIf
EndIf
EndIf
Next;### Tidy Error -> if is never closed in your script.
[/autoit]Ja stimmt sonst hatte ich immer GuiGetMsg.