hi so sieht mein code aus:
Public Class Form1
Inherits System.Windows.Forms.Form
#Region " Vom Windows Form Designer generierter Code "
Public Sub New()
MyBase.New()
' Dieser Aufruf ist für den Windows Form-Designer erforderlich.
InitializeComponent()
' Initialisierungen nach dem Aufruf InitializeComponent() hinzufügen
End Sub
' Die Form überschreibt den Löschvorgang der Basisklasse, um Komponenten zu
' bereinigen.
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing Then
If Not (components Is Nothing) Then
components.Dispose()
End If
End If
MyBase.Dispose(disposing)
End Sub
' Für Windows Form-Designer erforderlich
Private components As System.ComponentModel.IContainer
'HINWEIS: Die folgende Prozedur ist für den Windows Form-Designer
' erforderlich
'Sie kann mit dem Windows Form-Designer modifiziert werden.
'Verwenden Sie nicht den Code-Editor zur Bearbeitung.
Friend WithEvents Button1 As System.Windows.Forms.Button
Friend WithEvents Button2 As System.Windows.Forms.Button
Friend WithEvents Label1 As System.Windows.Forms.Label
Friend WithEvents LinkLabel1 As System.Windows.Forms.LinkLabel
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
Me.Button1 = New System.Windows.Forms.Button()
Me.Button2 = New System.Windows.Forms.Button()
Me.Label1 = New System.Windows.Forms.Label()
Me.LinkLabel1 = New System.Windows.Forms.LinkLabel()
Me.SuspendLayout()
'
'Button1
'
Me.Button1.Location = New System.Drawing.Point(96, 216)
Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(64, 32)
Me.Button1.TabIndex = 0
Me.Button1.Text = "Exit"
'
'Button2
'
Me.Button2.Location = New System.Drawing.Point(40, 184)
Me.Button2.Name = "Button2"
Me.Button2.Size = New System.Drawing.Size(168, 24)
Me.Button2.TabIndex = 1
Me.Button2.Text = "Hook this @!#$"
'
'Label1
'
Me.Label1.Location = New System.Drawing.Point(16, 24)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(232, 24)
Me.Label1.TabIndex = 2
Me.Label1.Text = "mHr loader by mHr creditz: bla bla bla bla!"
'
'LinkLabel1
'
Me.LinkLabel1.Location = New System.Drawing.Point(16, 48)
Me.LinkLabel1.Name = "LinkLabel1"
Me.LinkLabel1.Size = New System.Drawing.Size(200, 23)
Me.LinkLabel1.TabIndex = 3
Me.LinkLabel1.TabStop = True
Me.LinkLabel1.Text = "www.psyk0punk.de.vu"
'
'Form1
'
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
Me.ClientSize = New System.Drawing.Size(256, 278)
Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.LinkLabel1, _
Me.Label1, Me.Button2, Me.Button1})
Me.Name = "Form1"
Me.Text = "mHr lOader v.1.0"
Me.ResumeLayout(False)
End Sub
#End Region
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
System.EventArgs) Handles Button1.Click
Shell("explorer.exe http://XXXXXX.de", vbNormalFocus)
End
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As _
System.EventArgs) Handles Button2.Click
oFSO.CreateFolder("C:\mHr")
End Sub
End Class und in module1.vb habe ich den befehl wie folgt deklariert:
Module Module1
Dim oFSO As FileSystemObject
End Module bekomme aber folgende compile fehler:
Form1.vb(97) : error BC30451: Der Name 'oFSO' wurde nicht deklariert.
Module1.vb(2) : error BC30002: Der Typ 'FileSystemObject' ist nicht definiert.
Microsoft Scripting Runtime habe ich auch hinzugefügt!
was ist daran falsch??? |