Lemur zaprasza
Strona: [ > ] 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 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 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 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 Wszystkich odpowiedzi: 1 :: Maxymalnie na stronę: 20 Strona: [ > ] z 1 |