1. Este site usa cookies. Ao continuar a usar este site está a concordar com o nosso uso de cookies. Saber Mais.

pequena grande ajuda

Discussão em 'Programação' iniciada por ortigas24, 11 de Agosto de 2008. (Respostas: 10; Visualizações: 1060)

  1. ortigas24

    ortigas24 1st Folding then Sex

    Viva, eu precisava de editar um programa, o problema é que num percebo nada disto lol.

    Ora bem, a ideia e por este slider a dar mais de 63s
    [​IMG]

    Queria por por ex ate 35mins.

    Código:
    VERSION 5.00
    Object = "{6B7E6392-850A-101B-AFC0-4210102A8DA7}#1.3#0"; "COMCTL32.OCX"
    Begin VB.Form Form1 
       BorderStyle     =   1  'Fixed Single
       Caption         =   "Configurable Keystroke Simulator"
       ClientHeight    =   5055
       ClientLeft      =   150
       ClientTop       =   840
       ClientWidth     =   4770
       LinkTopic       =   "Form1"
       MaxButton       =   0   'False
       MinButton       =   0   'False
       ScaleHeight     =   5055
       ScaleWidth      =   4770
       StartUpPosition =   3  'Windows Default
       Begin VB.ComboBox Combo 
          Height          =   315
          Index           =   1
          Left            =   600
          TabIndex        =   37
          Top             =   840
          Width           =   1095
       End
       Begin VB.CheckBox Check 
          Height          =   255
          Index           =   1
          Left            =   240
          TabIndex        =   28
          Top             =   840
          Width           =   375
       End
       Begin ComctlLib.Slider Slider1 
          Height          =   375
          Left            =   2400
          TabIndex        =   26
          Top             =   4560
          Width           =   1815
          _ExtentX        =   3201
          _ExtentY        =   661
          _Version        =   327682
          Min             =   1
          Max             =   120
          SelStart        =   1
          Value           =   1
       End
       Begin VB.Frame Frame1 
          Caption         =   "Keys"
          Height          =   3975
          Left            =   120
          TabIndex        =   2
          Top             =   120
          Width           =   4575
          Begin VB.TextBox Text 
             Height          =   285
             Index           =   9
             Left            =   2400
             TabIndex        =   54
             Text            =   "200"
             Top             =   3600
             Width           =   975
          End
          Begin VB.TextBox Text 
             Height          =   285
             Index           =   8
             Left            =   2400
             TabIndex        =   53
             Text            =   "200"
             Top             =   3240
             Width           =   975
          End
          Begin VB.TextBox Text 
             Height          =   285
             Index           =   7
             Left            =   2400
             TabIndex        =   52
             Text            =   "200"
             Top             =   2880
             Width           =   975
          End
          Begin VB.TextBox Text 
             Height          =   285
             Index           =   6
             Left            =   2400
             TabIndex        =   51
             Text            =   "200"
             Top             =   2520
             Width           =   975
          End
          Begin VB.TextBox Text 
             Height          =   285
             Index           =   5
             Left            =   2400
             TabIndex        =   50
             Text            =   "200"
             Top             =   2160
             Width           =   975
          End
          Begin VB.TextBox Text 
             Height          =   285
             Index           =   4
             Left            =   2400
             TabIndex        =   49
             Text            =   "200"
             Top             =   1800
             Width           =   975
          End
          Begin VB.TextBox Text 
             Height          =   285
             Index           =   3
             Left            =   2400
             TabIndex        =   48
             Text            =   "200"
             Top             =   1440
             Width           =   975
          End
          Begin VB.TextBox Text 
             Height          =   285
             Index           =   2
             Left            =   2400
             TabIndex        =   47
             Text            =   "200"
             Top             =   1080
             Width           =   975
          End
          Begin VB.TextBox Text 
             Height          =   285
             Index           =   1
             Left            =   2400
             TabIndex        =   46
             Text            =   "200"
             Top             =   720
             Width           =   975
          End
          Begin VB.ComboBox Combo 
             Height          =   315
             Index           =   9
             Left            =   480
             TabIndex        =   45
             Top             =   3600
             Width           =   1095
          End
          Begin VB.ComboBox Combo 
             Height          =   315
             Index           =   8
             Left            =   480
             TabIndex        =   44
             Top             =   3240
             Width           =   1095
          End
          Begin VB.ComboBox Combo 
             Height          =   315
             Index           =   7
             Left            =   480
             TabIndex        =   43
             Top             =   2880
             Width           =   1095
          End
          Begin VB.ComboBox Combo 
             Height          =   315
             Index           =   6
             Left            =   480
             TabIndex        =   42
             Top             =   2520
             Width           =   1095
          End
          Begin VB.ComboBox Combo 
             Height          =   315
             Index           =   5
             Left            =   480
             TabIndex        =   41
             Top             =   2160
             Width           =   1095
          End
          Begin VB.ComboBox Combo 
             Height          =   315
             Index           =   4
             Left            =   480
             TabIndex        =   40
             Top             =   1800
             Width           =   1095
          End
          Begin VB.ComboBox Combo 
             Height          =   315
             Index           =   3
             Left            =   480
             TabIndex        =   39
             Top             =   1440
             Width           =   1095
          End
          Begin VB.ComboBox Combo 
             Height          =   315
             Index           =   2
             Left            =   480
             TabIndex        =   38
             Top             =   1080
             Width           =   1095
          End
          Begin VB.CheckBox Check 
             Height          =   255
             Index           =   9
             Left            =   120
             TabIndex        =   36
             Top             =   3600
             Width           =   375
          End
          Begin VB.CheckBox Check 
             Height          =   255
             Index           =   8
             Left            =   120
             TabIndex        =   35
             Top             =   3240
             Width           =   375
          End
          Begin VB.CheckBox Check 
             Height          =   255
             Index           =   7
             Left            =   120
             TabIndex        =   34
             Top             =   2880
             Width           =   375
          End
          Begin VB.CheckBox Check 
             Height          =   255
             Index           =   6
             Left            =   120
             TabIndex        =   33
             Top             =   2520
             Width           =   375
          End
          Begin VB.CheckBox Check 
             Height          =   255
             Index           =   5
             Left            =   120
             TabIndex        =   32
             Top             =   2160
             Width           =   375
          End
          Begin VB.CheckBox Check 
             Height          =   255
             Index           =   4
             Left            =   120
             TabIndex        =   31
             Top             =   1800
             Width           =   375
          End
          Begin VB.CheckBox Check 
             Height          =   255
             Index           =   3
             Left            =   120
             TabIndex        =   30
             Top             =   1440
             Width           =   375
          End
          Begin VB.CheckBox Check 
             Height          =   255
             Index           =   2
             Left            =   120
             TabIndex        =   29
             Top             =   1080
             Width           =   375
          End
          Begin VB.TextBox Text 
             Height          =   285
             Index           =   0
             Left            =   2400
             TabIndex        =   15
             Text            =   "200"
             Top             =   360
             Width           =   975
          End
          Begin VB.ComboBox Combo 
             Height          =   315
             Index           =   0
             Left            =   480
             TabIndex        =   4
             Top             =   360
             Width           =   1095
          End
          Begin VB.CheckBox Check 
             Height          =   255
             Index           =   0
             Left            =   120
             TabIndex        =   3
             Top             =   360
             Width           =   375
          End
          Begin VB.Label Label3 
             Caption         =   "miliseconds"
             Height          =   255
             Index           =   9
             Left            =   3480
             TabIndex        =   25
             Top             =   3600
             Width           =   855
          End
          Begin VB.Label Label3 
             Caption         =   "miliseconds"
             Height          =   375
             Index           =   8
             Left            =   3480
             TabIndex        =   24
             Top             =   3240
             Width           =   855
          End
          Begin VB.Label Label3 
             Caption         =   "miliseconds"
             Height          =   375
             Index           =   7
             Left            =   3480
             TabIndex        =   23
             Top             =   2880
             Width           =   855
          End
          Begin VB.Label Label3 
             Caption         =   "miliseconds"
             Height          =   375
             Index           =   6
             Left            =   3480
             TabIndex        =   22
             Top             =   2520
             Width           =   855
          End
          Begin VB.Label Label3 
             Caption         =   "miliseconds"
             Height          =   375
             Index           =   5
             Left            =   3480
             TabIndex        =   21
             Top             =   2160
             Width           =   855
          End
          Begin VB.Label Label3 
             Caption         =   "miliseconds"
             Height          =   375
             Index           =   4
             Left            =   3480
             TabIndex        =   20
             Top             =   1800
             Width           =   855
          End
          Begin VB.Label Label3 
             Caption         =   "miliseconds"
             Height          =   375
             Index           =   3
             Left            =   3480
             TabIndex        =   19
             Top             =   1440
             Width           =   855
          End
          Begin VB.Label Label3 
             Caption         =   "miliseconds"
             Height          =   375
             Index           =   2
             Left            =   3480
             TabIndex        =   18
             Top             =   1080
             Width           =   855
          End
          Begin VB.Label Label3 
             Caption         =   "miliseconds"
             Height          =   375
             Index           =   1
             Left            =   3480
             TabIndex        =   17
             Top             =   720
             Width           =   855
          End
          Begin VB.Label Label3 
             Caption         =   "miliseconds"
             Height          =   375
             Index           =   0
             Left            =   3480
             TabIndex        =   16
             Top             =   360
             Width           =   855
          End
          Begin VB.Label Label2 
             Caption         =   "Sleep:"
             Height          =   255
             Index           =   9
             Left            =   1680
             TabIndex        =   14
             Top             =   3600
             Width           =   735
          End
          Begin VB.Label Label2 
             Caption         =   "Sleep:"
             Height          =   375
             Index           =   8
             Left            =   1680
             TabIndex        =   13
             Top             =   3240
             Width           =   735
          End
          Begin VB.Label Label2 
             Caption         =   "Sleep:"
             Height          =   375
             Index           =   7
             Left            =   1680
             TabIndex        =   12
             Top             =   2880
             Width           =   735
          End
          Begin VB.Label Label2 
             Caption         =   "Sleep:"
             Height          =   375
             Index           =   6
             Left            =   1680
             TabIndex        =   11
             Top             =   2520
             Width           =   735
          End
          Begin VB.Label Label2 
             Caption         =   "Sleep:"
             Height          =   375
             Index           =   5
             Left            =   1680
             TabIndex        =   10
             Top             =   2160
             Width           =   735
          End
          Begin VB.Label Label2 
             Caption         =   "Sleep:"
             Height          =   375
             Index           =   4
             Left            =   1680
             TabIndex        =   9
             Top             =   1800
             Width           =   735
          End
          Begin VB.Label Label2 
             Caption         =   "Sleep:"
             Height          =   375
             Index           =   3
             Left            =   1680
             TabIndex        =   8
             Top             =   1440
             Width           =   735
          End
          Begin VB.Label Label2 
             Caption         =   "Sleep:"
             Height          =   375
             Index           =   2
             Left            =   1680
             TabIndex        =   7
             Top             =   1080
             Width           =   735
          End
          Begin VB.Label Label2 
             Caption         =   "Sleep:"
             Height          =   375
             Index           =   1
             Left            =   1680
             TabIndex        =   6
             Top             =   720
             Width           =   735
          End
          Begin VB.Label Label2 
             Caption         =   "Sleep:"
             Height          =   375
             Index           =   0
             Left            =   1680
             TabIndex        =   5
             Top             =   360
             Width           =   735
          End
       End
       Begin VB.Timer timSpam 
          Enabled         =   0   'False
          Interval        =   1000
          Left            =   7920
          Top             =   3000
       End
       Begin VB.Timer timGetFore 
          Enabled         =   0   'False
          Interval        =   10000
          Left            =   7920
          Top             =   3480
       End
       Begin VB.TextBox txtHwnd 
          Enabled         =   0   'False
          Height          =   285
          Left            =   2520
          TabIndex        =   0
          Top             =   4200
          Width           =   1575
       End
       Begin VB.Label Label4 
          Caption         =   "Spam Interval: 1 sec"
          Height          =   375
          Left            =   600
          TabIndex        =   27
          Top             =   4560
          Width           =   1695
       End
       Begin VB.Label Label1 
          Caption         =   "Current WindowHandle:"
          Height          =   255
          Left            =   600
          TabIndex        =   1
          Top             =   4200
          Width           =   1695
       End
       Begin VB.Menu Options 
          Caption         =   "&Options"
          Begin VB.Menu getHwnd 
             Caption         =   "&Get Windowhandle"
          End
          Begin VB.Menu menGetActive 
             Caption         =   "Get &Active Window in 10 sec"
          End
          Begin VB.Menu sepe 
             Caption         =   "-"
          End
          Begin VB.Menu mStart 
             Caption         =   "&Start Key Simulation"
          End
          Begin VB.Menu menStop 
             Caption         =   "S&top Key Simulation"
          End
          Begin VB.Menu sep 
             Caption         =   "-"
          End
          Begin VB.Menu mExit 
             Caption         =   "&Exit"
          End
       End
       Begin VB.Menu menAbout 
          Caption         =   "&About"
       End
    End
    Attribute VB_Name = "Form1"
    Attribute VB_GlobalNameSpace = False
    Attribute VB_Creatable = False
    Attribute VB_PredeclaredId = True
    Attribute VB_Exposed = False
    Private Declare Function myPostMessageA Lib "BypassedPostmessage.dll" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Long) As Long
    Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
    Private Declare Function GetForegroundWindow Lib "user32" () As Long
    Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
    
    Private Const WM_KEYDOWN = &H100
    
    Dim lHandle As Long
    
    Private Sub Form_Load()
        Call AddItems
    End Sub
    
    
    Private Sub getHwnd_Click()
    Dim StrWinName As String
        
        StrWinName = InputBox("Enter Window Caption:", "GetCaption")
        
        If StrWinName = "" Then
            Call getHwnd_Click
        Else
            lHandle = FindWindow(vbNullString, StrWinName)
        End If
        
        If lHandle = "0" Then
            MsgBox "Make sure to enter the exact window caption (case sensitive)", vbCritical, "Error: Window not found"
        Else
            txtHwnd.Text = lHandle
        End If
    End Sub
    
    
    Private Sub menAbout_Click()
        MsgBox "Made by: JoostP", vbOKOnly, "Configurable Keystroke Simulator"
    End Sub
    
    Private Sub menGetActive_Click()
        timGetFore.Enabled = True
    End Sub
    
    Private Sub menStop_Click()
        timSpam.Enabled = False
    End Sub
    
    Private Sub mExit_Click()
        Unload Me
    End Sub
    
    Private Sub mStart_Click()
        timSpam.Enabled = True
    End Sub
    
    Private Sub Slider1_Click()
        Label4.Caption = "Spam Interval: " & Slider1.Value & " sec"
        timSpam.Interval = (Slider1.Value * 1000)
    End Sub
    
    Private Sub timGetFore_Timer()
        lHandle = GetForegroundWindow()
        txtHwnd.Text = lHandle
        MsgBox "Active Window Set", vbOKOnly, "Found Foreground Window"
        timGetFore.Enabled = False
    End Sub
    
    Private Sub AddItems()
    Dim Step As Integer
    Step = 0
    Do Until Step = 10
        Combo(Step).AddItem "F1"
        Combo(Step).AddItem "F2"
        Combo(Step).AddItem "F3"
        Combo(Step).AddItem "F4"
        Combo(Step).AddItem "F5"
        Combo(Step).AddItem "F6"
        Combo(Step).AddItem "F7"
        Combo(Step).AddItem "F8"
        Combo(Step).AddItem "Enter"
        Combo(Step).AddItem "0"
        Combo(Step).AddItem "1"
        Combo(Step).AddItem "2"
        Combo(Step).AddItem "3"
        Combo(Step).AddItem "4"
        Combo(Step).AddItem "5"
        Combo(Step).AddItem "6"
        Combo(Step).AddItem "7"
        Combo(Step).AddItem "8"
        Combo(Step).AddItem "9"
    Step = Step + 1
    Loop
    End Sub
    
    Private Sub timSpam_Timer()
    Dim Stap As Integer
    Stap = 0
        Do Until Stap = 9
            If Check(Stap).Enabled = True Then
                Select Case Key
                    Case Text(Stap).Text = "F1"
                        myPostMessageA lHandle, WM_KEYDOWN, vbKeyF1, 0&
                    Case Text(Stap).Text = "F2"
                        myPostMessageA lHandle, WM_KEYDOWN, vbKeyF2, 0&
                    Case Text(Stap).Text = "F3"
                        myPostMessageA lHandle, WM_KEYDOWN, vbKeyF3, 0&
                    Case Text(Stap).Text = "F4"
                        myPostMessageA lHandle, WM_KEYDOWN, vbKeyF4, 0&
                    Case Text(Stap).Text = "F5"
                        myPostMessageA lHandle, WM_KEYDOWN, vbKeyF5, 0&
                    Case Text(Stap).Text = "F6"
                        myPostMessageA lHandle, WM_KEYDOWN, vbKeyF6, 0&
                    Case Text(Stap).Text = "F7"
                        myPostMessageA lHandle, WM_KEYDOWN, vbKeyF7, 0&
                    Case Text(Stap).Text = "F8"
                        myPostMessageA lHandle, WM_KEYDOWN, vbKeyF8, 0&
                    Case Text(Stap).Text = "F9"
                        myPostMessageA lHandle, WM_KEYDOWN, vbKeyF9, 0&
                    Case Text(Stap).Text = "Enter"
                        myPostMessageA lHandle, WM_KEYDOWN, vbKeyReturn, 0&
                    Case Text(Stap).Text = "0"
                        myPostMessageA lHandle, WM_KEYDOWN, vbKey0, 0&
                    Case Text(Stap).Text = "1"
                        myPostMessageA lHandle, WM_KEYDOWN, vbKey1, 0&
                    Case Text(Stap).Text = "2"
                        myPostMessageA lHandle, WM_KEYDOWN, vbKey2, 0&
                    Case Text(Stap).Text = "3"
                        myPostMessageA lHandle, WM_KEYDOWN, vbKey3, 0&
                    Case Text(Stap).Text = "4"
                        myPostMessageA lHandle, WM_KEYDOWN, vbKey4, 0&
                    Case Text(Stap).Text = "5"
                        myPostMessageA lHandle, WM_KEYDOWN, vbKey5, 0&
                    Case Text(Stap).Text = "6"
                        myPostMessageA lHandle, WM_KEYDOWN, vbKey6, 0&
                    Case Text(Stap).Text = "7"
                        myPostMessageA lHandle, WM_KEYDOWN, vbKey7, 0&
                    Case Text(Stap).Text = "8"
                        myPostMessageA lHandle, WM_KEYDOWN, vbKey8, 0&
                    Case Text(Stap).Text = "9"
                        myPostMessageA lHandle, WM_KEYDOWN, vbKey9, 0&
                End Select
                
                Sleep Text(Stap).Text
                
            End If
            
            Stap = Stap + 1
            
        Loop
    End Sub
    
    Código:
    Begin ComctlLib.Slider Slider1 
          Height          =   375
          Left            =   2400
          TabIndex        =   26
          Top             =   4560
          Width           =   1815
          _ExtentX        =   3201
          _ExtentY        =   661
          _Version        =   327682
          Min             =   1
          Max             =   120
          SelStart        =   1
          Value           =   1
       End
    penso que seja isto que devo de alterar, mas como num pesco nada disto, pergunto antes de fazer merd@.

    A minha duvida é:
    Basta mudar o 120 pos segundos queu quero? ou tem mais alguma coisa a modificar sem ser aqui? e se depois basta guardar as alteraçoes?

    Desde já, digo que o software é free e o source code vem disponibilizado para quem quiser alterar a sua maneira.

    Deixo o meu obrigado


    Edit: ja tou a ver que num é este ultimo code que tenho de alterar, mas continuo as aranhas.
     
    Última edição: 11 de Agosto de 2008
  2. Kayvlim

    Kayvlim Undefined Moderator
    Staff Member

    Assim de repente, não consigo perceber de onde vêm esses 63 segundos :x

    Se puderes alojar isso em ZIP nalgum sítio para eu poder sacar e dar uma vista de olhos, talvez consiga ajudar-te :)
     
  3. ortigas24

    ortigas24 1st Folding then Sex

    Mandei pm com link. Gracias
     
  4. Kayvlim

    Kayvlim Undefined Moderator
    Staff Member

    Não compreendo o problema. Eu abri o projecto no VB6, e o problema que tive não foi um limite errado; foi um overflow, uma vez que 120 * 1000 é superior ao limite do Timer1.Interval (65535).
    Para solucionares esse problema, o que eu faria era um workaround, já que não sei resolver isso: o Timer1.Interval seria 1000, e faria internamente uma contagem. Quando essa contagem igualasse o número no slider, prosseguia o código. Entretanto, limita-se a incrementar uma variável.
     
  5. ortigas24

    ortigas24 1st Folding then Sex

    Deixo o link pra quem quiser espreitar.

    Já tou a ver muita coisa a modificar/escrever, lol eu num sei escrever nada de nada.

    O que eu consegui perceber do teu post :P (acho eu) é que mesmo que consiga aumentar o slider se aumentar mais do que esses 63s o programa vai crashar, certo?

    se puderes explicar melhor isso da contagem :), como eu disse no 1º post eu num pesco mesmo nada disto, andava mesmo a espreita a ver se conseguia descortinar maneira de aumentar o tempo.

    Edit:Vou ter de ir pa cama que as ferias ainda nao sao para todos e as 6 ja tenho de tar a pé.
    Mandai uns bitaites eu vejo o que consigo perceber dos mesmos amanha :p

    Thx
     
  6. Kayvlim

    Kayvlim Undefined Moderator
    Staff Member

  7. ortigas24

    ortigas24 1st Folding then Sex

    Boas obrigado por te dares ao trabalho, mas ainda num foi desta, continua tudo igual.

    Num te chateies mais com isso (a num ser que gostes do desafio lol) eu andava a ver se alterava isso porque dava-me jeito, mas é coisa que passo bem sem isso.

    Valeu a intençao ;)
     
  8. Kayvlim

    Kayvlim Undefined Moderator
    Staff Member

    Se não levares a mal a pegunta, estás a executar o source no Visual Basic, certo? Ou é o EXE? :x
     
  9. ortigas24

    ortigas24 1st Folding then Sex

    Lol, num tenho nada que levar a mal, eu troquei aqueles codes do frm plo novo que me deste, num fiz nada no visual basic (sou mesmo extremamente noob nisto, num sabia od me tava a meter xD) apenas trokei o code e abri o programa, lol era preciso compilar de novo? Onde é que posso arranjar o visual Basic (ao que parece o 6)
     
  10. Kayvlim

    Kayvlim Undefined Moderator
    Staff Member

    Pois, então era isso. Depois de mudares o source, tens de o compilar de novo.
    Compilei-o eu, e tem-no aqui: http://angelofwisdom.no.sapo.pt/CKS-exe.zip, mais a minha palavra em como não pus vírus nisso :P

    O VB6 está descontinuado, já só é "comprável" no eBay e afins, e nunca saiu gratuitamente para o público. Outras formas de discutir como o arranjar são ilegais, pelo que nesse aspecto não te posso ajudar, obviamente :)
     
  11. ortigas24

    ortigas24 1st Folding then Sex

    Porreiro ja da ate 120 :) obrigado foste uma grande ajuda (aka fizeste tudo lol).

    Thx again
     

Partilhar esta Página