Fetstil Fetstil Kursiv Understrykning linje färgläggning tabellverk Punktlista Nummerlista Vänster Centrerat högerställt Utfyllt Länk Bild htmlmode
  • Forum & Blog
    • Forum - översikt
      • .Net
        • asp.net generellt
        • c#
        • vb.net
        • f#
        • silverlight
        • microsoft surface
        • visual studio .net
      • databaser
        • sql-server
        • databaser
        • access
        • mysql
      • mjukvara klient
        • datorer och komponenter
        • nätverk, lan/wan
        • operativsystem
        • programvaror
        • säkerhet, inställningar
        • windows server
        • allmänt
        • crystal reports
        • exchange/outlook
        • microsoft office
      • mjukvara server
        • active directory
        • biztalk
        • exchange
        • linux
        • sharepoint
        • webbservers
        • sql server
      • appar (win/mobil)
      • programspråk
        • c++
        • delphi
        • java
        • quick basic
        • visual basic
      • scripting
        • asp 3.0
        • flash actionscript
        • html css
        • javascript
        • php
        • regular expresssion
        • xml
      • spel och grafik
        • DirectX
        • Spel och grafik
      • ledning
        • Arkitektur
        • Systemutveckling
        • krav och test
        • projektledning
        • ledningsfrågor
      • vb-sektioner
        • activeX
        • windows api
        • elektronik
        • internet
        • komponenter
        • nätverk
        • operativsystem
      • övriga forum
        • arbete karriär
        • erbjuda uppdrag och tjänster
        • juridiska frågor
        • köp och sälj
        • matematik och fysik
        • intern information
        • skrivklåda
        • webb-operatörer
    • Posta inlägg i forumet
    • Chatta med andra
  • Konto
    • Medlemssida
    • Byta lösenord
    • Bli bonsumedlem
    • iMail
  • Material
    • Tips & tricks
    • Artiklar
    • Programarkiv
  • JOBB
  • Student
    • Studentlicenser
  • KONTAKT
    • Om pellesoft
    • Grundare
    • Kontakta oss
    • Annonsering
    • Partners
    • Felanmälan
  • Logga in

Hem / Forum översikt / inlägg

Posta nytt inlägg


Sendkey

Postades av 2001-11-29 13:14:00 - Rasmus Hörstedt, i forum visual basic - allmänt, Tråden har 6 Kommentarer och lästs av 470 personer

Hej hej...
Nu e det så att jag vill bygga en boster till ett spel, en boster är som en autofire till gamla nintendo spel typ.
Den skickar tryckningar till ett ställe så man inte behöver mosa på tangenterna.

Det svåra är inte att skicka tryckningarna utan att få dom att komma rätt.
Hur gör jag för att få tryckningarna att skickas till ett annan fönster typ en webläsare??

Tack för svar // R-mus
P.s jag vet att jag frågade om det här förut, men så försvann alla inlägg, hela forumet faktiskt så nu måste jag fråga om på nytt :) D.s


Svara

Sv: Sendkey

Postades av 2001-11-29 15:19:00 - Sven Åke Persson

Hej
Som jag förmodligen svarat innan så kan du använda
App.Activate "Rubriken på webbfönstret"
tex. SendKeys "{ENTER}",True
Du vet förmodligen inte rubriken ,då kan du fånga den
genom att på något sätt vaska fram den ur detta exempel.

Kör detta exempel så du förstår hur jag menar.

'Modul1
Option Explicit
Declare Function EnumWindows Lib "user32" _
(ByVal lpEnumFunc As Long, ByVal lParam As Long) As Boolean

Declare Function GetWindowText Lib "user32" _
Alias "GetWindowTextA" (ByVal hwnd As Long, _
ByVal lpString As String, ByVal cch As Long) As Long

Declare Function GetWindowTextLength Lib "user32" _
Alias "GetWindowTextLengthA" (ByVal hwnd As Long) As Long
Public Function EnumWindowsProc(ByVal hwnd As Long, _
ByVal lParam As Long) As Boolean
Dim sSave As String, ret As Long
ret = GetWindowTextLength(hwnd)
sSave = Space(ret)
GetWindowText hwnd, sSave, ret + 1
Form1.Text1.Text = Form1.Text1.Text _
& CStr(hwnd) _
& " " & sSave _
& vbCrLf
'Kör uppräkning av fönster
EnumWindowsProc = True
End Function

'*********************************
'Form1
'En TextBox Multiline = True ScrollBar Vertical
'En Command1
Option Explicit
Private Sub Command1_Click()
'Anropa Räkana upp aktiva fönster
EnumWindows AddressOf EnumWindowsProc, ByVal 0&
End Sub

återkom så Vi kanske kan lista ut hur du med en if sats
vaskar fram den rubrik du är ute efter,finns kanske
något speciellt kännemärke.

spånar
Sven




Svara

Sv: Sendkey

Postades av 2001-11-29 19:29:00 - Rasmus Hörstedt

det är det här fönstret jag vill åt:
1072 Gladiatorkampen på www.tv4.se - IE_Window_Title

men jag vete f** hur jag ska böra mig åt. och inte heller om fönstret heter samma för varje person.

Skulle man inte kunna lägga till en api funktion som bara skickar tryckningarna till det fönster man väljer efter 3sekunder eller nåt i den stillen, eller ännu bätttre, man kan ju först få välja till vilket fönster man vill skicka tryckningarna ur listan.

Kom just på en ide'....ska nog testa den.
Återkommer med nåt senare // R-mus


Svara

Sv: Sendkey

Postades av 2001-11-29 20:47:00 - Sven Åke Persson

Hej
Om det finns ett ord som alltid förekommer i rubriken
kan vi ju söka på det via EnumWindow.

DS


Svara

Sv: Sendkey

Postades av 2001-11-29 22:01:00 - Rasmus Hörstedt

"Gladiator" finns alltid med...

så det skulle man kuna använda....

Tack för hjälpen,(glömde säga det i föra inlägget) // R-mus


Svara

Sv: Sendkey

Postades av 2001-11-29 23:58:00 - Sven Åke Persson

Igen
Då kan du använda denna model

'Modul1
Option Explicit
Declare Function EnumWindows Lib "user32" _
(ByVal lpEnumFunc As Long, ByVal lParam As Long) As Boolean

Declare Function GetWindowText Lib "user32" _
Alias "GetWindowTextA" (ByVal hwnd As Long, _
ByVal lpString As String, ByVal cch As Long) As Long

Declare Function GetWindowTextLength Lib "user32" _
Alias "GetWindowTextLengthA" (ByVal hwnd As Long) As Long

Public strGladiator As String

Public Function EnumWindowsProc(ByVal hwnd As Long, _
ByVal lParam As Long) As Boolean
Dim sSave As String, ret As Long
ret = GetWindowTextLength(hwnd)
sSave = Space(ret)
GetWindowText hwnd, sSave, ret + 1
If InStr(sSave, "Gladiator") Then
strGladiator = sSave
End If
'Kör uppräkning av fönster
EnumWindowsProc = True
End Function

'******** Slut Modul1 *****************
'Form1
'En TextBox Multiline = True ScrollBar Vertical
'En Command1
Option Explicit
Private Sub Command1_Click()
'Anropa Räkana upp aktiva fönster
EnumWindows AddressOf EnumWindowsProc, ByVal 0&
If strGladiator <> "" Then
AppActivate strGladiator, True
'Jag skickar key enter du kan skicka vilken key du vill
SendKeys "{ENTER}", True
End If
strGladiator = ""
End Sub

DS


Svara

Sv: Sendkey

Postades av 2001-11-30 19:47:40 - Rasmus Hörstedt

Verkligen jätte schysst att du hjälper mig....
men det funkar inte.... :-(
vet inte om jag gör nåt fel eller så....

För att det inte ska bli något missförstånd så är det här hela fönstrets namn:

Gladiatorkampen på www.tv4.se - IE_Windows_Title

Fattar inte vad som är fel, du kanske ser det direkt så vad e det som inte fungerar?? :-(

Tack // R-mus


Svara

Nyligen

  • 21:28 Chicken Road Casino Game
  • 21:21 1xBet Promo Code 2025
  • 18:37 Remove the bumper in AUDI
  • 15:35 Chicken road crash game
  • 21:41 Automotive Services UK
  • 20:44 Erfarenhet av CBD-olja mot sömnpro
  • 12:13 Sex Dolls for Sale
  • 19:42 Online Casinos for Haitian Players

Sidor

  • Hem
  • Bli bonusmedlem
  • Läs artiklar
  • Chatta med andra
  • Sök och erbjud jobb
  • Kontakta oss
  • Studentlicenser
  • Skriv en artikel

Statistik

Antal besökare:
Antal medlemmar:
Antal inlägg:
Online:
På chatten:
4 570 937
27 965
271 780
586
0

Kontakta oss

Frågor runt konsultation, rådgivning, uppdrag, rekrytering, annonsering och övriga ärenden. Ring: 0730-88 22 24 | pelle@pellesoft.se

© 1986-2013 PelleSoft AB. Last Build 4.1.7169.18070 (2019-08-18 10:02:21) 4.0.30319.42000
  • Om
  • Kontakta
  • Regler
  • Cookies