Søg
Avatar billede bgjensen Nybegynder
09. januar 2004 - 22:21 Der er 13 kommentarer og
1 løsning

få vbs til at lave 2 gange ENTER tryk

Når min pc starter op kører den dette:

Set myShell  = CreateObject("WScript.Shell")
    myCommand = "http://localhost/lokal_adgang/FilmDB/til_sam.php"
    myShell.run mycommand,1,false
Set myShell  = Nothing

men uheldigvis skal der trykkes enter 2 gange.
Kan man ikke få VBS til at ordne det for en?
Avatar billede thesurfer Nybegynder
09. januar 2004 - 22:29 #1
hmm.. trykke enter 2 gange.. Er det fordi dit antivirus programmer stopper scriptet?
Avatar billede bgjensen Nybegynder
09. januar 2004 - 22:33 #2
nej nej det er fordi den starter et php script, men det kræver at man logger in (username og password er indtastet) 1x enter, og så skal den lukke php siden igen 1x enter. Altså 2 gange enter :o)
Avatar billede thesurfer Nybegynder
09. januar 2004 - 22:37 #3
Dn første enter (den til login) kan du sikkert aktivere med:
<body onLoad="document.FORMNAVN.submit();">

Det andet enter, er fordi scripetet prøver på at lukke hovedvindue.. det kan ikke gøres uden brugerens tilladelse.. det er kun popups der kan lukkes med scriptes..
Avatar billede squashguy Nybegynder
09. januar 2004 - 22:37 #4
Du kan vel evt ændre i til_sam.php, og via noget javascript få den til at logge ind automatisk..
Avatar billede thesurfer Nybegynder
09. januar 2004 - 22:38 #5
squashguy> alt, alt, alt for langsom ;-)
Avatar billede squashguy Nybegynder
09. januar 2004 - 22:38 #6
hehe :)
Avatar billede bgjensen Nybegynder
09. januar 2004 - 22:43 #7
nu ligger problemet i at login er lavet med .htaccess så det er ikke lige såen.

men her er hvad jeg har indtil videre:

Set myShell  = CreateObject("WScript.Shell")

    myCommand = "http://localhost/lokal_adgang/FilmDB/til_sam.php"
    myShell.run mycommand,1,false

Wscript.Sleep 1*1000
CreateObject("WScript.Shell").SendKeys "{ENTER}"
Wscript.Sleep 2*1000
CreateObject("WScript.Shell").SendKeys "{ENTER}"

Set myShell  = Nothing
Avatar billede bgjensen Nybegynder
09. januar 2004 - 22:43 #8
men af en eller andet grund aktiveres caps lock, og deaktiveres igen hvofor det?
Avatar billede bgjensen Nybegynder
09. januar 2004 - 22:48 #9
og hvordan sikre man sig af der bliver tastet i det rigtige vindue?
Avatar billede thesurfer Nybegynder
09. januar 2004 - 22:58 #10
"nu ligger problemet i at login er lavet med .htaccess så det er ikke lige såen."..?
Du har vel en form hvor du skriver brugernavn og kodeord? Og via submit af formen, sendes dine data til serveren, som enten accepterer det eller afviser det?

Det her betyder at den skal submittet formen når siden loades:
<body onLoad="document.FORMNAVN.submit();">

Du skal dog lige rette FORMNAVN til navnet på din form :)
Avatar billede bgjensen Nybegynder
09. januar 2004 - 23:06 #11
nej der er jo ikke en form på siden, med htaccess kommer internet explores egen logon boks frem!

Men jeg har fundet ud af det nu:

Set myShell  = CreateObject("WScript.Shell")

    myCommand = "http://localhost/lokal_adgang/FilmDB/til_sam.php"
    myShell.run mycommand,1,false

Wscript.Sleep 2000
CreateObject("WScript.Shell").SendKeys "{ENTER}"
Wscript.Sleep 2000
CreateObject("WScript.Shell").SendKeys "{ENTER}"

Set myShell  = Nothing

Og så virker det!
Avatar billede thesurfer Nybegynder
09. januar 2004 - 23:09 #12
Fedt :)
Læg et svar og snup pointsne selv :)
Avatar billede bgjensen Nybegynder
09. januar 2004 - 23:10 #13
yes sir
Avatar billede medions Nybegynder
09. januar 2004 - 23:11 #14
<body onkeydown="tjek(event.keyCode)">
<script language="VBScript">
Sub tjek(hvad)
If hvad = 13 Then
Set myShell  = CreateObject("WScript.Shell")

    myCommand = "http://localhost/lokal_adgang/FilmDB/til_sam.php"
    myShell.run mycommand,1,false

Wscript.Sleep 2000
CreateObject("WScript.Shell").SendKeys "{ENTER}"
End If
End Sub
</script>
</body>

//>Rune
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Programmeringssprog kurser
Kurser inden for grundlæggende programmering
Se alle Programmeringssprog kurser

Flere spørgsmål fra VBscript kategorien

Titel Indlæg Oprettet Seneste aktivitet
Ændre navn på folder Af bsn i VBscript 12 07/07/202312:45 09/07/202307:04
Outlook makro Af Webnoob i VBscript 6 09/02/202313:32 16/02/202315:51
Sti / Filname med mellemrum ??? Af ksor i VBscript 10 07/10/202200:43 07/10/202215:40
GetLastRow - Google spreadsheet Af rickiegrayholm i VBscript 2 22/04/202213:23 22/04/202214:55
Batch fil Af BDV i VBscript 1 12/01/202210:00 12/01/202210:05
Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Opret Log ind

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten
Seneste spørgsmål Seneste aktivitet
I går 10:29 Negativ billeder på samsung Af ALICE i Småopgaver
15/0115:45 HJÆLP - Lopslag, Indeks? Hvad gør jeg! Af Eva i Excel
14/0119:38 Webmail yousee Af nu_igen i E-mail programmer
14/0113:00 Blå pile på foto? Af hkprofil i Office & Kontorpakker
13/0123:48 Tekst til Dato Af nyhavn18 i Excel
White papers
Flere white papers »