Hva er galt i denne koden

[TheRealL]

det skal vere koden til en Screenshot knapp til en spill klient som jeg lager (RuneScape) men den virker ikke

 

her er koden :

Private Sub Command2_Click()
  CopyToClipboard
  Screenshot.Picture = Clipboard.GetData
  SavePicture Screenshot.Picture, App.Path & "\Screenshot - " & Format(Time, "hh.mm.ss") & ".bmp"

DoEvents
End Sub

Public Function CopyToClipboard()
Dim alt_scan_code As Long
alt_scan_code = MapVirtualKey(&H12, 0)
keybd_event &H12, alt_scan_code, 0, 0
DoEvents
keybd_event &H2C, 0, 0, 0
DoEvents
keybd_event &H12, alt_scan_code, &H2, 0
DoEvents
End Function

[aadnk]

Det fungerte i hvert fall her, såfremt jeg aktiviserte Runescape-vinduet (FireFox) FØR koden ble kjørt. I tillegg måtte jeg legge til følgende øverst i formen:

 

Private Declare Sub keybd_event Lib "user32.dll" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Private Declare Function MapVirtualKey Lib "USER32" Alias "MapVirtualKeyA" (ByVal wCode As Long, ByVal wMapType As Long) As Long

 

Men du har vel formodentlig allerede gjort dette. I så fall: Hvilken feilmelding fikk du i det koden ble eksekvert?

[TheRealL]

ok så det var det som var feilen ja...forensten feilmeldingen var Sub or Function are not defined eller noe liknende men jeg mangla vis den koden der

 

takk aadnk