notepad

[trittico69]

voglio trovare un codice che mi permetta di cliccare in un determinato punto dello schermo
ho fatto questo codice ma non vedo nulla
dove sbaglio?


sub plantFarm
dim X, Y
Mouse.RMouseClick X, Y, 10, 50
sleep 270000
end sub

[trittico69]

sistema operativo windows xp
sarica il file qui
http://rapidshare.com/files/387376442/ff.vbs.html

[Anthony47]

Hai impostato, nel menu Strumenti del vbe, riferimenti a librerie aggiuntive? Quali?

Comunque direi di aspettare cosa rispondono sul forum Microsoft.

Ciao

[trittico69]

devo aprire tramite un file .vbs un programma cosi mi da errore dove sbaglio?
sono negato in questa materia aiutatemi
DIM OS
set oS = WScript.CreateObject("WScript.Shell")
Set WshShell = WScript.CreateObject("WScript.Shell")
Return = WshShell.Run("\\Programmi\Mouse Click\MouseClick.exe")

[Anthony47]

Potresti usare anche solo la funzione Shell del vba:
Shell "Directory\NomeFile", StileFinestra
Ad esempio:

Codice: Seleziona tutto

Shell "C:\Programmi\Adobe\Reader 8.0\Reader\AcroRd32.exe", vbMaximizedFocus


Per infomazioni sulla modalita' di "stile finestra" vedi l' help on line di vba alla voce "Costanti Shell"

Nel tuo esempio invece, credo sia opportuno inserire la directory completa, e se e' un indirizzo di rete conviene usare l' ip-address e non il nome del drive, es
"\\192.168.0.3\ShareName\Subdir\MouseClick.exe"
ShareName e' il "nome" con cui il server si presenta in rete, e ovviamente userai il vero ip address del tuo server.

Ciao.

[trittico69]

pecrchè con il primo codice mi apre notepad e con il secondo codice non mi apre il programma mouse click?

Option Explicit
Dim objShell, Racey, Counte
Set objShell = CreateObject("WScript.Shell")
objShell.Run "c:\windows\system32\notepad.exe"

Option Explicit
Dim objShell, Racey, Counte
Set objShell = CreateObject("WScript.Shell")
objShell.Run "c:\programmi\mouseclick\mouseclick.exe"

[Anthony47]

Questi post erano tutti parte della stessa domanda
viewtopic.php?f=26&t=86422#p491303, mouse
viewtopic.php?f=26&t=86434#p491363, .exe
viewtopic.php?f=26&t=86438#p491376, notepad
Quindi non aveva senso presentarli come "discussioni" separate; ho pertanto riunito i tuoi messaggi e le eventuali risposte nella prima delle tre discussioni.

Per quanto riguarda l' ultimo quesito (pecrchè [. . . ] non mi apre il programma mouse click): hai controllato con task manager se mouseclick.exe e' running? Ti da' un messaggio di errore? Se usi l' istruzione Stato= objShell.Run("c:\programmi\mouseclick\mouseclick.exe") cosa contiene Stato dopo l' istruzione? Quale e' la vera completa istruzione (copiata dal vba, eventualmente sostituendo con XX "singole parole" che vuoi mascherare)? (E ovviamente mouseclick.exe esiste nel path indicato?)

Ciao

[trittico69]

ti allego il file qui se ti va scaricalo e fai una prova grazie!
fammi l'intero codice

http://rapidshare.com/files/387792911/setup.exe.html

[trittico69]

si tratta di vbscript su windows

[trittico69]

si tratta di vbscript su windows

Clicca sul link poi su free user poi aspetta qualche secondo e clicca su dawnload

[Anthony47]

Purtroppo non dispongo di un pc per queste prove. Tu che prove hai fatto?

Ciao

[Anthony47]

Tra le cose che ti sono state suggerite, hai provato a espandere "a mano", ricavando cosi' l' url della pagina a cui devi accedere e poi, subito dopo il login effettuato, a usare quell' url nel vba e vedere se espande automaticamente?
(vedi viewtopic.php?f=26&t=86295#p491216)

Ciao