VB κλικ ποντικιου!

[moyrgos]

θα ηθελα μια μικρη βοήθεια αν μπορει καποιος να μου πει την εντολη για εξομιωση κλικ στιν visual basic !!!

 

ευχαριστω !

[firewalker]

Ποια έκδοση;

 

http://msdn.microsoft.com/en-us/library/ms171548.aspx

[moyrgos]

εχω την εκδοση 6 !

[ntaryl]

πολυ σωστος Φιλε firewalker

Βλεπω οτι υπαρχουν ακομα καποιοι που χρησιμοποιουν VB 6 παρολο που ειναι καπως παλια

[firewalker]

Όσο η Ms κρατά την συμβατότητα προς τα πίσω θα την χρησιμοποιούν πολλοί. Είναι εύκολη, και όσον αφορά τα Windows κάνει παπάδες.

[virxen75]

θα ηθελα μια μικρη βοήθεια αν μπορει καποιος να μου πει την εντολη για εξομιωση κλικ στιν visual basic !!!

 

ευχαριστω !

 

δώσε ένα παράδειγμα για να δω τι ακριβώς ψάχνεις

[ntaryl]

Ναι φιλε μου

Πιστεψε με μπορει να μην την Υποστηριζει αλλαυπαρχουν πολλοι οι οποιοι δημιουργουν τρελα πραγματα με αυτην .

Φυσικα ειναι πραγματα που δεν τα υποστηριζει ..

χιχιχιχ

 

---------- Το μήνυμα προστέθηκε στις 00:46 ----------

 

http://www.pscode.com/vb/scripts/BrowseCategoryOrSearchResults.asp?optSort=Alphabetical&txtCriteria=simulate++enter&blnWorldDropDownUsed=TRUE&txtMaxNumberOfEntriesPerPage=10&blnResetAllVariables=TRUE&lngWId=1&B1=Quick+Search

[moyrgos]

δώσε ένα παράδειγμα για να δω τι ακριβώς ψάχνεις

 

 

θέλω να κανω κλικ σε μια περιοχη της οθονης ανα 30 λεπτα !!! δηλ θελω να ανοιγω το προγραμμα και να αρχιζει η αντιστοφη μέτρηση στο πρωτο κλικ και μετα απο 30 λεπτα να κανει κλικ μονο τ !

 

---------- Το μήνυμα προστέθηκε στις 08:43 ----------

 

Ναι φιλε μου

Πιστεψε με μπορει να μην την Υποστηριζει αλλαυπαρχουν πολλοι οι οποιοι δημιουργουν τρελα πραγματα με αυτην .

Φυσικα ειναι πραγματα που δεν τα υποστηριζει ..

χιχιχιχ

 

---------- Το μήνυμα προστέθηκε στις 00:46 ----------

 

http://www.pscode.com/vb/scripts/BrowseCategoryOrSearchResults.asp?optSort=Alphabetical&txtCriteria=simulate++enter&blnWorldDropDownUsed=TRUE&txtMaxNumberOfEntriesPerPage=10&blnResetAllVariables=TRUE&lngWId=1&B1=Quick+Search

 

 

καμια ιδεα για καποια αλλη γλωσσα που μπορω να το υλοποιησω ? (δεν ξερω απο προγραμματισμο μαθαινω τωρα ! )

[random]

Αν δεν ξερεις καμια γλώσσα, δεν χρειαζεται να στησεις ολοκληρο v.studio για κατι τόσο απλό.

δες ενα παραδειγμα σε Autoit script ( http://www.autoitscript.com/autoit3/ ) .

 

3-4 γραμμες κωδικα, και κανει 1 κλικ καθε μιση ωρα, στο κέντρο της οθόνης.

δες το Help / Function reference / Mouse management για παρόμοιες λειτουργίες

 

 

> ;  Mouse clicking  AutoIt script. 
AutoItSetOption ( "MouseCoordMode" , 1) 
$x = @DesktopWidth / 2
$y = @DesktopHeight / 2 
While true
       ; execute 1 click at centre of screen with primary button (usualy primary=left)
       MouseClick ( "primary" , $x, $y , 1 )
       Sleep ( 30*60*1000 )  ; wait 30 minutes
WEnd 

 

 

 

 

#cs ----------------------------------------------------------------------------

MouseClick ( "button" [, x, y [, clicks [, speed ]]] )

Parameters

button The button to click: "left", "right", "middle", "main", "menu", "primary", "secondary".

x, y [optional] The x/y coordinates to move the mouse to. If no x and y coords are given, the current position is used (default).

clicks [optional] The number of times to click the mouse. Default is 1.

speed [optional] the speed to move the mouse in the range 1 (fastest) to 100 (slowest). A speed of 0 will move the mouse instantly. Default speed is 10.

Return Value

Success: Returns 1.

Failure: Returns 0, the button is not in the list.

#ce ----------------------------------------------------------------------------

 

 

[virxen75]

για vb6

 

http://www.planet-source-code.com/vb/scripts/ShowCode.asp?txtCodeId=67452&lngWId=1

[CyberDreamer]

Μήπως θέλεις ένα Macro Mouse Recorder για visual basic 6 ?

 

ή θέλεις σε δικό σου πρόγραμμα να κάνει κλίκ συγκεκριμένο κουμπί π.χ. για το Command1 (π.χ Button της vb) Command1_Click ???

 

πες μας ακριβώς τι θές να σε βοηθήσουμε...

[moyrgos]

Μήπως θέλεις ένα Macro Mouse Recorder για visual basic 6 ?

 

ή θέλεις σε δικό σου πρόγραμμα να κάνει κλίκ συγκεκριμένο κουμπί π.χ. για το Command1 (π.χ Button της vb) Command1_Click ???

 

πες μας ακριβώς τι θές να σε βοηθήσουμε...

 

 

θελω να αφηνω το ποντικι σε ενα κουμπι προγραμματος και να κανει κλικ καθε 30 λεπτα .. πχ σε ενα κουμπι που κανει refresh και θελω καθε 30 λεπτα να κανει refresh αλλα για τον λογο οτι δεν θα ειμαι στον υπολογιστη μ δεν μπορω να το κανω εγω !!

 

σασ ευχαριστω για την ανταπίκριση !

[Evgenios1]

Μπλα μπλα αλα ελληνικα

[CyberDreamer]

συμπληρώνω, ότι ναι... η καλύτερη δουλειά (πιο εύκολη μάλλον) γι' αυτό που θέλεις....

π.χ. για Refresh στον IE ... είναι να χρησημοποιήσεις μια εντολή της VB (6) που θα στέλνει το F5 στον Internet Explorer (F5=refresh για ie)...so..

 

Λοιπόν... τα πράματα απλά... βάλε ένα button, ένα timer (δώσε τον χρόνο σε ms στο Interval) σε μια φόρμα νέου προγράμματος... και γράψε τον παρακάτω κώδικα στην φόρμα:

 

>

Private Sub Command1_Click()
End
End Sub

Private Sub Timer1_Timer()
On Error GoTo ex:
Timer1.Enabled = False
'Η παρακάτω εντολή θα ενεργοποιήση τον ήδη ανοικτό internet explorer που βρίσκεται 
'στο θέμα μας...
AppActivate "Insomnia.gr - Απάντηση σε Θέμα - Windows Internet Explorer" 
'Η παρακάτω εντολή θα στείλει ένα F5 πάτημα...
SendKeys "{F5}"
Timer1.Enabled = True
Exit Sub
ex:
End
End Sub

 

αυτό ήταν... απλό γρήγορο και εύκολο...

 

αλλά... σε περίπτωση που ο Internet Explorer βγάλει λάθος (π.χ. κάποιο javascript error) - θέλει περισσότερους ελέγχους και καλύτερο κώδικα.. ....νομίζω ότι και με το autoit μπορείς να το κάνεις γρήγορα και εύκολα...

 

---------- Το μήνυμα προστέθηκε στις 10:33 ----------

 

Απλά πρόσεξε το τίτλο του Internet EXplorer - Που έχει πάνω - και γράψτον ακριβώς ολοιδιο στην εντολή AppActivate

[CyberDreamer]

συμπληρώνω, ότι ναι... η καλύτερη δουλειά (πιο εύκολη μάλλον) γι' αυτό που θέλεις....

π.χ. για Refresh στον IE ... είναι να χρησημοποιήσεις μια εντολή της VB (6) που θα στέλνει το F5 στον Internet Explorer (F5=refresh για ie)...so..

 

Λοιπόν... τα πράματα απλά... βάλε ένα button, ένα timer (δώσε τον χρόνο σε ms στο Interval) σε μια φόρμα νέου προγράμματος... και γράψε τον παρακάτω κώδικα στην φόρμα:

 

>

Private Sub Command1_Click()
End
End Sub

Private Sub Timer1_Timer()
On Error GoTo ex:
Timer1.Enabled = False
'Η παρακάτω εντολή θα ενεργοποιήση τον ήδη ανοικτό internet explorer που βρίσκεται 
'στο θέμα μας...
AppActivate "Insomnia.gr - Απάντηση σε Θέμα - Windows Internet Explorer" 
'Η παρακάτω εντολή θα στείλει ένα F5 πάτημα...
SendKeys "{F5}"
Timer1.Enabled = True
Exit Sub
ex:
End
End Sub

 

αυτό ήταν... απλό γρήγορο και εύκολο...

 

αλλά... σε περίπτωση που ο Internet Explorer βγάλει λάθος (π.χ. κάποιο javascript error) - θέλει περισσότερους ελέγχους και καλύτερο κώδικα.. ....νομίζω ότι και με το autoit μπορείς να το κάνεις γρήγορα και εύκολα...

 

---------- Το μήνυμα προστέθηκε στις 10:33 ----------

 

Απλά πρόσεξε το τίτλο του Internet EXplorer - Που έχει πάνω - και γράψτον ακριβώς ολοιδιο στην εντολή AppActivate

 

δεν μας είπες - τι έγινε ;;; όλα καλα;