Kompiler indhold af tekstboks

Hvor er de "steder" (links)?

Jeg tror ikke at det bliver kompileret.. jeg tror nu mere, at der checkes hvilke "kommandoer" brugers..

f.eks.:
' t = indholdet af tekstboks
' k = kommando

t = text1.text
k = left(text1.text, instr(text1.text, " ") - 1)
select case kom
case "msgbox"
  msgbox mid(text1.text, len(k) + 1)
case "en anden kommando her"
  ' noget andet kode her..
end select

osv.. men en mere avanceret udgave..

det gik da helt galt det der :-)

meget advanceret så.. pga man kan bruge næsten alle commands som ikke bruger forms..

Har du nogen links?

har desværre ingen links.. Det er i et program jeg havde... (Har det ikke mere pga det andet i programmet ikk er 100% lovligt..)

ok..
Det skulle se sådan ud:

Private Sub Command1_Click()
t = Text1.Text
k = Left(t, InStr(t, " ") - 1)

Select Case k
Case "msgbox"
  If Mid(t, Len(k) + 2, 1) = """" Then MsgBox Mid(t, Len(k) + 3, InStrRev(t, """") - 9)
End Select
End Sub

har faktisk fået en ide til hvordan man kan gøre det.. Men det er ikke den bedste måde, tror jeg.. Man kan få ens program til at lave en fil (C:\test.VBS) og så åbne den bag efter... Hva er det nu shell kommandoen er? Kan sQ ikk huske :S

x = shell("start c:\test.vbs")

hvorfor X = ???

Der skal bare stå et eller andet før "="..

f.eks: etellerandet = shell("start c:\test.vbs")

Det er vist en funktion, og en funktioner kalder man med: noget = funktionsnavn(parametere)

Private Sub Command1_Click()
Open "c:\test.vbs" For Output As #1 ' Åbner fil til skrivning

    Print #1, Text1.Text 'Skriver til linje 1

Close #1 ' Lukker filen
x = Shell("start c:\test.vbs")
Exit Sub
End Sub


her er min kode... Der kommer en runtime fejl... File cannot be found..

Det virker fint hos mig..?

Prøv min form (kopier og indsæt linierne i notepad, og bruge "Gem Som" > *.* > "form1.frm"):

VERSION 5.00
Begin VB.Form Form1
  Caption        =  "Form1"
  ClientHeight    =  3195
  ClientLeft      =  60
  ClientTop      =  345
  ClientWidth    =  4680
  LinkTopic      =  "Form1"
  ScaleHeight    =  3195
  ScaleWidth      =  4680
  StartUpPosition =  3  'Windows Default
  Begin VB.CommandButton Command1
      Caption        =  "Command1"
      Height          =  495
      Left            =  1800
      TabIndex        =  1
      Top            =  1320
      Width          =  1215
  End
  Begin VB.TextBox Text1
      Height          =  285
      Left            =  480
      TabIndex        =  0
      Text            =  "msgbox ""hejsa"""
      Top            =  360
      Width          =  3615
  End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
Open "c:\test.vbs" For Output As #1 ' Åbner fil til skrivning

    Print #1, Text1.Text 'Skriver til linje 1

Close #1 ' Lukker filen
x = Shell("start c:\test.vbs")
End Sub

Private Sub Command1_Click()
Open "c:\test.vbs" For Output As #1 ' Åbner fil til skrivning

    Print #1, Text1.Text 'Skriver til linje 1

Close #1 ' Lukker filen
--> x = Shell("start c:\test.vbs")

End Sub

Stadig file not found..

Hvilken version af Visual Basic er det der melder fejl?

..og Windows version..?

FUCK jeg er SUR NU!!!! Er kommet til at overskrive en af mine andre programmer jeg lavet her i aftes :@

jeg kører Windows 2003 Server Enterprise

og VB6

Du kan fortryde koden, med mindre at du har lukket VB..
Tryk CTRL+Z eller via menuen Rediger/Edit > Fortryd/Undo..

Prøv..

har lukket vb.. laver det igen.. kan ikke tage lang tid.. har det meste af koden her på eksperten... og kan godt huske hvordan det så ud...

se lige om "c:\test.vbs" findes.. hvis den gør, er det "start" den klager over..
prøv så:
x = Shell("cmd c:\test.vbs")
x = Shell("c:\test.vbs")

Eller prøv det her:

'''' disse linier skal være i toppen af kode-området:
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Private Declare Function GetDesktopWindow Lib "user32" () As Long
Dim Scr_hDC As Long
''''


Private Function Startdoc(DocName As String)
Scr_hDC = GetDesktopWindow()
Startdoc = ShellExecute(Scr_hDC, "Open", DocName, "", "C:\", 1)
End Function

Private Sub Command1_Click()
Dim r As Long
Open "c:\test.vbs" For Output As #1 ' Åbner fil til skrivning

    Print #1, Text1.Text 'Skriver til linje 1

Close #1 ' Lukker filen

r = Startdoc("c:\test.vbs")
End Sub

oki... laver lige mit andet program... 2 sek

Den sidste kode du lavede virker :)
Hvordan er det så man sletter en fil? Vil gerne have den til at slette filen automatisk... Så skal du nok få dine velfortjente point :)

Mener at det er:

kill "c:\test.vbs"

-- Lægger lige et svar :-)

Du er simpelthen fantastisk :) Du har sQ fortjent de point :)

<*-*-*-*-* SPØRGSMÅL LUKKET *-*-*-*-*>

Takker for points :-)
Godnat og sov godt :-)

godnat :) smutter i seng nu :)

skulle lige op på 30 svar :P

hehehe :)