Keskustelu: Ohjelmointikysymykset: VB6: [VB] Macro yhteen peliin, apua kaivataan!

Terve. Olen tekemässä pientä macro-ohjelmaa yhteen peliin.
Tarkoituksena olisi, että "botti" jatkaisi CTRL-napin pohjassa painamista F11:sta ja lopettaisi kun näppäintä F11 painetaan uudelleen. Haluaisin myös toisen samanlaisen mutta tällä kertaa painettava nappi olisi Z ja komentopainike F10.

Onnistuuko? Kiitos paljon!
Ps. Jos mahdollista, niin mukaan auto clickkeri painettaessa F12 =)
PPS. Kyllä, etsin muita keskusteluja mutta ei löytynyt..

Onnistuu totta kai, mutta tuskin tuut valmista koodia saamaan. Esim. GetAsyncKeyStatella katsot, koska F11:sta painetaan ja SendKeysillä lähetät ctrl tai Z-näppäimen.

Ja kyllä varmana löytyy vanhoistakin keskusteluista apua.

Jep.. Onnistuukohan tälläinen? (huom, tässä esimerkissä käytän Command1 buttonia)

' Tyhjensin tämän, aivan turha toimimaton koodi

Edit. No eipä toiminutkaan, väsyttää niin helvetisti, etten jaksa ajatella kunnolla.

Joo, no, ei toiminut minullakaan, mutta, ajattelin, että miten olisi tälläinen:

Private Sub vbKeyF11_Hit() 'Mikähän olisi koodi F11 napin painamiselle? tuo ei taida olla oikea
    Shell "" & Text1.Text, vbNormalFocus 'Määritetään textboxin avulla, mihin ohjelmaan näppäintä painetaan
    SendKeys "{Z}" 'määritetään mikä näppäin lähetetään
    Loop ' jatketaan
    If vbKeyF11_Hit() Then End ' kunnes painetaan taas F11
End Sub

Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer

Public Function NappiPohjassa(Nappi As Long)
    NappiPohjassa = GetAsyncKeyState(Nappi) And &H8000
End Function

Private Sub Timer1_Timer()

If NappiPohjassa(vbKeyF11) And Timer2.Enabled = False Then ' Jos F11-näppäintä painetaan ja Timer2 ei ole käytössä, niin:
Timer2.Enabled = True
ElseIf NappiPohjassa(vbKeyF11) And Timer2.Enabled = True Then ' Jos F11-näppäintä painetaan ja Timer2 on käytössä, niin:
Timer2.Enabled = False
End If

End Sub

Private Sub Timer2_Timer()
SendKeys ("Z") ' Lähetetään Z-näppäin
End Sub

NappiPohjassa-funktio löytyy soodan koodivinkeistä.

Edit2. No niin, tämä toimii. Olipa hankalaa näinkin yksinkertaisen koodin tekeminen..

Anteeksi että vastaan vähän myöhässä, mutta netti katkesi.

No, tuo koodi ei toimi minulla.

Formissa oli: 2 timeriä, ja tietysti 1 textboxi että oisin voinu testata sitä...

Private Sub Form_Load()
Timer1.interval = 1
Timer2.Interval = 100
Timer2.Enabled = False
End Sub

Lisää tuo koodiin.

Hurraa! Kiitos! Toimii! =)

Mihinkäs peliin tarvitsit tuota?

tesmu, taitaa olla MapleStory. Voisin lähes vannoa.

Joo-o :) tarkoitus oli olla vaan vastaajana kaikkiin tällähetkellä oleviin kysymyksiin http://img478.imageshack.us/my.php?image­=legendpe9.jpg ;)

Ei jumalauta opetelkaa koodaamaan ennen kun alatte makroon / kyseleen täällä kysymyksiä...

Quirzo kirjoitti:

Ei jumalauta opetelkaa koodaamaan ennen kun alatte makroon / kyseleen täällä kysymyksiä...

Ja miksi?

Se on MapleStory :D

Newb kirjoitti:

Quirzo kirjoitti:

Ei jumalauta opetelkaa koodaamaan ennen kun alatte makroon / kyseleen täällä kysymyksiä...

Ja miksi?

Ei siinä ole mitään järkeä tulla kyselemään lähes valmista koodia, jos haluaa kasvattaa virtuaalipippeliä...

Mutta se on tietenkin vain oma mielipiteeni...

Quirzo kirjoitti:

Newb kirjoitti:

Quirzo kirjoitti:

Ei jumalauta opetelkaa koodaamaan ennen kun alatte makroon / kyseleen täällä kysymyksiä...

Ja miksi?

Ei siinä ole mitään järkeä tulla kyselemään lähes valmista koodia, jos haluaa kasvattaa virtuaalipippeliä...

Mutta se on tietenkin vain oma mielipiteeni...

Eihän se valmista koodia missään vaiheessa kysynyt, ei edes lähes valmista. Mutta antaa tän offtopicin loppua nyt.

Timerin SendKeys ("Z") jutun tilalle Mousedown (myös up!) oon tekemäs autoclickkerii. Ei oikkee luonnistu. Koodia?

Laitappa koodisi AakenStein niin korjataan se. Et hyödy siitä kyllä mitään, että pasteen tähän koodin ja tuut seuraavana päivänä kysyyn uutta koodia.

...Sekä muutenkin suoraan koodin kysely taitaa olla aika törkeää. Ennemmin sitä antaisi esimerkkejä, joita itse voisi soveltaa omiin tarkoituksiinsa, eihän sitä muuten opi mitään. </ot>

....
en tarvi mitää muutaku komennon millä ohjelma klikkaa kerran hiiren vasemmalla näppäimellä. VK_LBUTTON ei näytä toimivan?

SendKeys ("{VK_LBUTTON}")

Se menee jotenkin eri tavalla?

Ravver kirjoitti:

Laitappa koodisi AakenStein niin korjataan se.

Korjaapa sitten -__-