pequena grande ajuda

ortigas24 · 11 de Agosto de 2008

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

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.

Kayvlim · 11 de Agosto de 2008

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

ortigas24 · 12 de Agosto de 2008

Mandei pm com link. Gracias

Kayvlim · 12 de Agosto de 2008

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.

ortigas24 · 12 de Agosto de 2008

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

(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

Thx

Kayvlim · 12 de Agosto de 2008

Sem certezas, troca o ficheiro ConfigPostm.frm por este: http://angelofwisdom.no.sapo.pt/ConfigPostm.frm

ortigas24 · 13 de Agosto de 2008

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

Kayvlim · 13 de Agosto de 2008

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

ortigas24 · 13 de Agosto de 2008

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)

Kayvlim · 13 de Agosto de 2008

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

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

ortigas24 · 13 de Agosto de 2008

Porreiro ja da ate 120

obrigado foste uma grande ajuda (aka fizeste tudo lol).

Thx again

pequena grande ajuda

ortigas24

1st Folding then Sex

Kayvlim

Moderating from /home

ortigas24

1st Folding then Sex

Kayvlim

Moderating from /home

ortigas24

1st Folding then Sex

Kayvlim

Moderating from /home

ortigas24

1st Folding then Sex

Kayvlim

Moderating from /home

ortigas24

1st Folding then Sex

Kayvlim

Moderating from /home

ortigas24

1st Folding then Sex