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 [email protected] 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.
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
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.
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
Sem certezas, troca o ficheiro ConfigPostm.frm por este: http://angelofwisdom.no.sapo.pt/ConfigPostm.frm
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
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)
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