Gadric

[iHK München Update]

Ich habe gerade mit den Schnecken telefoniert, sie meinten wahrscheinlich wird es dieses Jahr hier nichts mehr mit den Ergebnissen.

tja die münchner lassen sich wohl Zeit

Jop -.- .. Heute wieder nix in der Post.

Super.. Denn ab Montag ist meine Firma bis 8. Januar geschlossen...

:/

1. Lehrjahr: 400€

2. Lehrjahr: 450€

3. Lehrjahr: 500€

Und bin dafür 650km weiter in den Süden gezogen.

Keine Beihilfe vom Staat oder so, nur Eltern übernehmen (Gott sei Dank) die Miete für meine Wohnung.

Und keine Berufschule.. Also ne billige Arbeitskraft

Weiss wer wie sich das ganze bei der IHK München verhält?

Hab mal was gehört, dass da garkeine vorläufigen Ergebnisse bekannt gemacht werden.

Servus

Also.. Es geht darum, mittels HttpRequest/Response auf eine Seite ein PostFormular abzuschicken. Was ich hier versucht habe, allerdings scheint damit was nicht zu stimmen (Wenn ich 2. Brwoser öffne und auf die Seite gehe, muss ich mich trotzdem einloggen, was der Code eigentlich hätte machen sollen)

    Dim strUrl As String = "url"

    Dim username As String = "name"

    Dim password As String = "password"

    Dim encoding As ASCIIEncoding = New ASCIIEncoding()

    Dim postData As String = "name=" + username

    postData += "&password=" + password


    Dim data() As Byte = encoding.GetBytes(postData)


    'Prepare web request... 

    Dim myRequest As HttpWebRequest = WebRequest.Create(strUrl)


    With myRequest

      .Method = "POST"

      .ContentType = "application/x-www-form-urlencoded"

      .ContentLength = data.Length

    End With


    Dim newStream As Stream = myRequest.GetRequestStream

    ' Send the data. 



    newStream.Write(data, 0, data.Length)

    newStream.Close()

Das wäre der 1. Teil.

Hätte noch wer Tips wie ich dann noch folgendes umsetzten kann?

Nach erfolgreichem Login eine bestimmte Url Aufrufen und in dieser dann einen Wert Raussuchen.

Das Problem bei dem 2. Teil ist im Moment immer, das die SessionID verloren geht. Hat jemand bei sowas schon Erfahrung?

MfG

Imports System.io

Imports System.Timers



Public Class MyService

  Dim theTimer As New System.Timers.Timer



  Protected Overrides Sub OnStart(ByVal args() As String)

    theTimer.Enabled = True


    'Timer event

    AddHandler theTimer.Elapsed, AddressOf onTimeElapsed


    'Interval auf 2 Minuten

    theTimer.Interval = 2000

    'Logfile schreiben

    write(DateTime.Now & " Dienst gestartet")


    'Timer am laufen halten

    GC.KeepAlive(theTimer)

  End Sub


  Protected Overrides Sub OnStop()

    'Beim stoppen Timer beenden

    theTimer.Enabled = False


    'Logfile schreiben

    write(DateTime.Now & " Dienst beendet")


  End Sub


  Private Sub onTimeElapsed(ByVal source As Object, ByVal e As ElapsedEventArgs)

    'Logfile schreiben

    write(DateTime.Now & " Event wird ausgeführt..")




    write(DateTime.Now & ".. Event wurde ausgeführt")



  End Sub


  'Logfile schreiben Methode

  Public Sub write(ByVal text)

    Dim fs As FileStream = New FileStream("C:\local_files\rssServerDienst.log", FileMode.OpenOrCreate)

    fs.Seek(0, SeekOrigin.End)


    Dim sw As StreamWriter = New StreamWriter(fs)


    sw.WriteLine(text)


    sw.Close()

    fs.Close()

  End Sub


End Class

Der komplette Code. Ich kann da nix falsches entdecken. Viell hab ich irgendwo beim Installer rumgefuscht und was kaputt gemacht.

Benutze den 2. da der Windows.Forms im Dienst ja eh nicht funktionieren würde, oder? ^^

Hm.. Ich sehe nur einen unter "Komponenten" in der Toolbox.

Timer_Tick funktioniert nicht.. am Freitag hatte ich es aber kurz mit Addhandler TimerElapsed zum laufen gebracht. Hab aber wieder irgendwas geändert, das es nicht läuft. Aber eigentlich nur den Namen des Service -.-

Die Zeit gibt er mir/uns leider nicht.

5 Tage/Woche arbeiten. Hab auch noch keine Materialien um mir irgendwas, was ich für BS brauche selbst anzueignen.

War nen Standart IHK vertragm it nem häkchenbei "Rein betriebliche Ausbildung" ^^

Bin 22, daher hab ich leider keine Schulpflicht mehr in der Ausbildung.

Was mich halt noch sehr interessieren würde, hat jemand Erfahrung mit dieser Art der Ausbildung?

Die Idee ist gut, hatte sie auch schon, erziehlt nur leider ebenso wenig einen Effeckt wie Timer.Enable :/

Besonders wundert mich eben, das der Timer in einer "normalen" Windows Anwendung so läuft wie ich es mir vorstelle.

[EDIT] (-.-).. Es geht umVB.net

Hallo!

Nun, ich habe am 1.9 meine rein betriebliche Ausbildung angefangen.

Mein Problem, oder meine Frage ist nun, hat jemand damit Erfahrung?

Ist es zu empfehlen oder war es eine schlechte Entscheidung? (War nicht meine, Chef sagte von anfang an rein betrieblich) Kann ich meinen Chef dazu "zwingen" das ich auch in die Berufsschule kann, oder kann er dann sagen "Nein, dann kannst du gehen"?

MfG

Gadric

Servus zusammen

Ich habe nun gestern den kompletten Tag rumprobiert und gesucht im Internet. Doch nirgends eine Lösung gefunden bisher.

Mein Problem.. Der Timer wird nicht ausgeführt im Dienst. Warum? Keine Ahnung. Der Code ist der gleiche wie in der OnStart Methode. Der Zeitintervall ist auf 10000MS gelegt.

Es soll also alle 10 Sekunden etwas in eine Datei geschrieben werden.

In OnStart steht auch Timer1.enabled = True.. aber, es passiert nichts.

Ein engl. Tutorial hab ich schon gelesen aber hilft leider bei meinem Problem auch nicht weiter.

Hat jemand vllt eine idee, oder einen Code bei dem der Timer_Tick 100% funktioniert?

Dazu kommt manchmal das Problem..

Wenn ich den Dienst installiert habe und starten will, kommt:

"Der Dienst "blubb" wurde gestartet und dann angehalten. Einige Dienste werden automatisch angehalten.." usw

Warum kommt das? Sowohl in OnStart, als auch in OnContinue sowie Timer_Tick ist was drin.

MfG

Gadric