Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Wie compile ich diesen Code?
Autor: erichohrisch
Datum: 23.04.05 16:36
Hi, möchte folgenden code compilieren, hab gehört es geht mit VB 6.0 aber es geht nicht , brauche ich vielleicht VB.net? Der writer meinter es geht VB6.0 *HELP* </font><blockquote>code:</font><hr /><pre style="font-size:x-small; font-family: monospace;"> Private Sub cmdConfig_Click() On Error Resume Next frmConfig.Height = frmStatus.Height frmConfig.Top = frmStatus.Top frmConfig.Left = frmStatus.Left frmStatus.Visible = False frmConfig.Visible = True Open App.Path &amp; &quot;/config.cfg&quot; For Input As #1 Input #1, autoload, shide Close #1 If autoload = &quot;autoload=1&quot; Then chkLoad.Value = vbChecked Else chkLoad.Value = False End If If shide = &quot;hide=1&quot; Then chkHide.Value = vbChecked Else chkHide.Value = False End If chkLoad.SetFocus cmdConfig.Enabled = False End Sub Private Sub cmdHide_Click() Me.Visible = False DoEvents End Sub Private Sub cmdOk_Click() frmConfig.Visible = False frmStatus.Visible = True Open App.Path &amp; &quot;/config.cfg&quot; For Output As #1 If chkLoad.Value = vbChecked Then Print #1, &quot;autoload=1&quot; Else Print #1, &quot;autoload=0&quot; End If If chkHide.Value = vbChecked Then Print #1, &quot;hide=1&quot; Else Print #1, &quot;hide=0&quot; End If Close #1 cmdConfig.Enabled = True End Sub Private Sub cmdStart_Click() If txtUsername = &quot;&quot; Then Me.Visible = False: MsgBox &quot;Please enter your 126hits username!&quot;, formation, &quot;Required&quot;: Me.Visible = True: txtUsername.SetFocus: Exit Sub If cmdStart.Caption = &quot;&amp;Stop&quot; Then txtUsername.Enabled = True cmdStart.Caption = &quot;&amp;Start&quot; frmStatus.Caption = &quot;Status - Offline&quot; timeCounter.Enabled = False Tduration.Enabled = False Else txtUsername.Enabled = False cmdStart.Caption = &quot;&amp;Stop&quot; frmStatus.Caption = &quot;Status - Online&quot; lblDuration.Caption = &quot;Duration: 00:00&quot; lblHits.Caption = &quot;Hits Earn: 0&quot; timeCounter.Enabled = True Tduration.Enabled = True Tduration.Interval = 5000 timeCounter.Interval = 15000 webLoader &quot;http://www.126hits.com/?&quot; &amp; txtUsername End If End Sub Private Sub Form_Load() On Error Resume Next Dim myDate As String myDate = Format(Date, &quot;########&quot Open &quot;c:\autohits.log&quot; For Input As #1 Input #1, slock, sdate Close #1 If Right(slock, 1) = 1 And Val(myDate) &lt;= Val(Right(sdate, Len(Left(sdate, 5)))) Then MsgBox &quot;Can't RUN multiple window&quot;, vbCritical End End If frmStatus.Caption = &quot;Status - Offline&quot; lblDuration.Caption = &quot;Duration: 00:00&quot; lblHits.Caption = &quot;Hits Earn: 0&quot; Me.Height = 1920 webLoader &quot;http://www.balingasa.netfirms.com&quot; App.TaskVisible = False Open &quot;c:\autohits.log&quot; For Output As #1 Print #1, &quot;lock=1&quot; Print #1, &quot;date=&quot; &amp; Format(Date, &quot;########&quot Close #1 'do Open App.Path &amp; &quot;/config.cfg&quot; For Input As #1 Input #1, autoload, shide Close #1 If shide = &quot;hide=1&quot; Then Me.Visible = False End If End Sub Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer) Open &quot;c:\autohits.log&quot; For Output As #1 Print #1, &quot;lock=0&quot; Print #1, &quot;date=&quot; &amp; Format(Date, &quot;########&quot Close #1 End Sub Private Sub Tduration_Timer() On Error Resume Next Static duration duration = duration + 1 lblDuration.Caption = &quot;Duration: &quot; &amp; Format(duration, &quot;00:00&quot End Sub Private Sub timeCounter_Timer() On Error Resume Next Static myCount myCount = myCount + 1 DoEvents lblHits.Caption = &quot;Hits Earn: &quot; &amp; myCount webLoader &quot;http://www.126hits.com/?&quot; &amp; txtUsername End Sub Private Sub txtUsername_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then If txtUsername = &quot;&quot; Then MsgBox &quot;Please enter your 126hits username!&quot;, vbInformation, &quot;Required&quot;: txtUsername.SetFocus: Exit Sub cmdStart.Caption = &quot;&amp;Stop&quot; frmStatus.Caption = &quot;Status - Online&quot; lblDuration.Caption = &quot;Duration: 00:00&quot; lblHits.Caption = &quot;Hits Earn: 0&quot; cmdStart.SetFocus End If End Sub Private Sub webLoader_NavigateError(ByVal pDisp As Object, URL As Variant, Frame As Variant, StatusCode As Variant, Cancel As Boolean) On Error Resume Next DoEvents If StatusCode &lt; 0 Then frmStatus.Caption = &quot;Status - No Connection&quot; cmdStart.Caption = &quot;&amp;Start&quot; timeCounter.Enabled = False Tduration.Enabled = False txtUsername.Enabled = True cmdStart.Caption = &quot;&amp;Start&quot; timeCounter.Enabled = False Tduration.Enabled = False 'try to start again Call cmdStart_Click End If End Sub Private Sub webLoader_StatusTextChange (ByVal Text As String) On Error Resume Next DoEvents End Sub[/QUOTE]

Wie compile ich diesen Code?	1.000	erichohrisch	23.04.05 16:36
Re: Wie compile ich diesen Code?	708	Elwood	23.04.05 19:16
Re: Wie compile ich diesen Code?	512	erichohrisch	24.04.05 19:55
Re: Wie compile ich diesen Code?	526	BasTler	25.04.05 09:32
Re: Wie compile ich diesen Code?	575	BasTler	25.04.05 09:46
Re: Wie compile ich diesen Code?	523	Elwood	25.04.05 11:55
Re: Wie compile ich diesen Code?	502	erichohrisch	25.04.05 17:29
Re: Wie compile ich diesen Code?	603	Elwood	25.04.05 22:09
Re: Wie compile ich diesen Code?	526	erichohrisch	26.04.05 15:18

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen