Dim Dateiname As String
 
Private Declare Function GetPrivateProfileString Lib "Kernel32" _
   Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As _
   String, ByVal lpKeyName As Any, ByVal lpDefault As String, _
   ByVal lpReturnedString As String, ByVal nSize As Long, _
   ByVal lpFileName As String) As Long
 
Private Declare Function WritePrivateProfileString Lib "Kernel32" _
   Alias "WritePrivateProfileStringA" (ByVal lpApplicationName _
   As String, ByVal lpKeyName As Any, ByVal lpString As Any, _
   ByVal lpFileName As String) As Long
 
Private Function WriteINI(Dateiname As String, DieSektion As String, _
   DerEintrag As String, Wert As String) As Long
   WriteINI = WritePrivateProfileString(DieSektion, DerEintrag, _
   Wert, Dateiname)
End Function
 
Private Function GetINIString(Dateiname As String, _
   DieSektion As String, DerEintrag As String) As String
   Temp$ = String(255, 0)
   x = GetPrivateProfileString(DieSektion, DerEintrag, "", _
             Temp$, 255, Dateiname)
   Temp$ = Left$(Temp$, x)
   GetINIString = Temp$
End Function
 
 
 
 
 
 
 
 
 
Private Sub Check1_Click()
x = WriteINI(cd3.FileName, "Test", "Eintrag", "Bitte")
End Sub
 
Private Sub Command1_Click()
cd.ShowOpen
Text1.Text = cd.FileName
End Sub
 
Private Sub Command10_Click()
If MsgBox("Alles wurde Gespeichert. Jetzt Beenden?", vbYesNo + vbQuestion) = _
  vbNo Then
    Cancel = True
    Exit Sub
  Else
    End
  End If
End Sub
 
Private Sub Command2_Click()
cd2.ShowOpen
Text2.Text = cd2.FileName
End Sub
 
Private Sub Command3_Click()
Text3.Text = BrowseForFolder(Me)
End Sub
 
Private Sub xpText1_Change()
cd.FileName = xpText1.Text
End Sub
 
 
 
Private Sub Command4_Click()
 s = GetINIString(Dateiname$, "Plugin_Rapidshare.com", "RecogniseCMD")
 Text1.Text = s
End Sub
 
Private Sub Command5_Click()
Text5.Text = "3"
End Sub
 
Private Sub Command6_Click()
Text6.Text = "USDownloader.de.lng"
End Sub
 
Private Sub Command7_Click()
Text7.Text = "0"
End Sub
 
Private Sub Command8_Click()
cd3.ShowOpen
End Sub
Private Sub Command9_Click()
 
 x = WriteINI(Dateiname$, "SEKTION", "EINTRAG", "0915")
 x = WriteINI(Dateiname$, "Plugin_RapidShare.com", "RecogniseCMD", Text1.Text)
 x = WriteINI(Dateiname$, "Main", "UseSheled", "1")
 x = WriteINI(Dateiname$, "Schedule", "item0_active", "1")
 x = WriteINI(Dateiname$, "Schedule", "item0_day", "0")
 x = WriteINI(Dateiname$, "Schedule", "item0_event", "3")
 x = WriteINI(Dateiname$, "Schedule", "item0_time", "0")
 x = WriteINI(Dateiname$, "Schedule", "item0_eventparam", "")
 x = WriteINI(Dateiname$, "Schedule", "item0_action", "0")
 x = WriteINI(Dateiname$, "Schedule", "item0_actparam", Chr$(34) & Text2.Text & _
   "|3|1" & Chr$(34))
 x = WriteINI(Dateiname$, "Schedule", "item0_onetime", "0")
 x = WriteINI(Dateiname$, "Main", "SaveTo", cd2.FileName)
 x = WriteINI(Dateiname$, "Plugin_RapidShare.com", "NetworkNum", Text5.Text)
 x = WriteINI(Dateiname$, "Main", "Language", Text6.Text)
 
 Call MsgBox("Alles wurde geschrieben in" + cd3.FileName)
 
 
 
 
End Sub
 
Private Sub Label9_Click()
Check1.Value = Abs(Not CBool(Check1.Value))
 
End Sub
 
Private Sub Form_Load()
    Dateiname$ = App.Path
      If Right(Dateiname$, 1) <> "\" Then Dateiname$ = Dateiname$ & "\"
      Dateiname$ = Dateiname$ & "USDownloader.ini"
 
End Sub
 
Private Sub Text2_Change()
cd2.FileName = Text2.Text
End Sub