Strona: [  << <   1   > >>  ]  z  1     
Autor Temat: Poszukiwany DLL sendmessage już znaleziony
sapero




Typ: neutral
Postów: 10
Zarejestrowany: Apr 2004
Poszukiwany DLL sendmessage już znaleziony

Otóż wędrując sobie po forum pyxia znalazłem ciekawy artykół
Przedstawiona jest tam biblioteka AutoIt.dll która umożliwia wysyłanie różnych zdarzeń do aktualnego okna; tj coś w stylu sendmessage - działa z klawiaturą i myszką.
Strona domowa tej biblioteki to http://www.hiddensoft.com/AutoIt/ jest tam kilka sampli dla tego DLL, jak i dział download.

Nie sprawdzałem czy faktycznie to działa bo jak zwykle siedzę przy komputerze po północy i ledwo co widzę

Teraz jest możliwe (jeśli masz serwer http z cgi u siebie) np. zarządanie pokazania twojego ekranu przez klienta twojego serwera www! i to w kilku linijkach kodu!
wygląda to tak: skrypt w cgi-bin uruchamia pewien program, który kożystając z owego DLLa wykonuje po kolei:
1. naciska klawisz PrtScr
2. uruchamia paint
3. Klika myszką na edit/wklej lub naciska klawisze ctrl+v
4. klika na plik/zapisz jako
5. wybiera bmp,jpg...(klikanie myszką albo klawisze TAB i kursor)
[...]
w końcu kopiuje, lub zapisuje plik graficzny w udostępnionym folderze dla http


-----------------
kiedyś już spotkałem się z takim czymś, że jakiś program uruchamiał notatnik i co jakiś czas wysyłał do niego litery (naciskał klawisze), ale nie pamiętam co to był za program.... chyba active perl, ale nie dam nerki...

[Post edytowany dnia 14-04-2004 03:03 przez sapero]

14-04-2004 02:58
Pokaż profil sapero  Wyślij email do sapero   Odwiedź stronę sapero       5309745
losmac
"profesorek"




Typ: neutral
Postów: 758
Zarejestrowany: May 2003
SendMessage lub SendKeys

Oto przykład jak dokonać obliczeń w kalkulatorze Windows i wyświetlić wynik w Notatniku


Sub OblicziWstawDoNotatnika()
Dim retVal As Long, i As Long
Dim notepadPath As String
Dim calcPath As String

notepadPath = Environ("windir" & "\notepad.exe"
calcPath = Environ("windir" & "\calc.exe"

If Dir(notepadPath) = "" Or Dir(calcPath) = "" Then Exit Sub

retVal = Shell(calcPath, vbMaximizedFocus)
For i = 1 To 50 Step 5
    SendKeys i & "{+}", True
Next i
SendKeys "=", True
SendKeys "^{C}", True
retVal = Shell(notepadPath, vbMaximizedFocus)
SendKeys "^{V}", True
End Sub



_____________________________________________
POSTULATY STARUSZKA:
1) Ludzie, dbajcie o polszczyznę!!!
2) Ludzie, zadawajcie kompletne pytania, a nie rzucacie ochłapy i trzeba się domyślać o co chodzi!!!

Powodzenia
Maciej Łoś

15-04-2004 21:49
Pokaż profil losmac  Wyślij email do losmac   Odwiedź stronę losmac  
Wszystkich odpowiedzi: 1 :: Maxymalnie na stronę: 20
Strona: [  << <   1   > >>  ]  z  1