Beiträge von Tink

Zitat von s4cheater;157541

Hier bitte schön wo ich ihn herhab sag ich nicht damit könnt ihr duppen^^ Virustotal:Virustotal. MD5: 6036713ff3b93596851ff000455456f5 Download:File-Upload.net - Paket-Editor.rar

Also mit der einstellung "wo ich ihn herhabe sag ich nicht" glaube nicht das jemand das Usen wird egal wie viele Virustotal durchlaufe du machst es macht die leute unsicher besser wäre es das garnicht erst in den satz einzubringen.

I.wann hatt Visual Basic auch seine Grenzen ^^

Ich eigentlich auch nicht nur ich spiele hin und wieder auf P Servern. :D

Also ich finde Dragon Crusade ist ein Guter Server aber hatt schon viele Spieler und man kann nicht mehr der Beste Spieler werden (vieleicht schon) also falls dir das nichts aussmacht empfehle ich dir Dragon Crusade ansonsten Lost Memories da der Server neu ist.

Also ich finde es Klasse auch wenn es bunt ist kommt zwar kindisch rüber aber sieht trotzdem geil aus mach weiter so sieht gut aus.

10 / 10

Für Offi Empfehle ich dir Viola (F-Tool) ich Poste das die Tage mal in einem Thread.

Dann trag die Richtige ein ^^ was denn für eine Gpotato ID? die aus Neuz? xD

Zitat von Fuyo;156935

Programmier einen Hitfaker , da haste was sinnvolles.

Ein Hitfaker? habe ich mal gemacht wenn du willst kann ich den Hochladen.

Um wieviel uhr? oder schon vorbei?

Schon gut habe eine seite nicht gelesen ^^

Super Arbeit weiter so *daumen Hoch*

@ Code

Danke für deine Arbeit ich werde sie Vorübergehen benutzen, hoffe du machst das noch mit meinem Namen.

MfG

Tink

[COLOR="Lime"]Eine .exe auf Version Prüfen.[/COLOR]

Public Class Form1


    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Try


            Dim processList() As Process = Process.GetProcessesByName(TextBox1.Text)
            For Each proc As Process In processList
                MsgBox(proc.MainModule.FileVersionInfo.FileVersion)
            Next
        Catch ex As Exception
            MsgBox("Error ", MsgBoxStyle.Critical)
        End Try




    End Sub
End Class

[COLOR="Lime"]Schleife[/COLOR]

Public Class Form1


    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim i As Integer
        Label1.Text = ""
        'Die Schleife er giebt die zahl von 3 bis 7 aus
        For i = 3 To 7
            'VbCrLf heisst das er mehr als nur eine zahl / wort ausgeben soll bzw es untereinander schreiben soll
            Label1.Text &= i & vbCrLf
            'Next steht dafür was er nach beendigung der schleife tuhen soll
        Next
    End Sub
End Class

[COLOR="Lime"]Gesammten Satz Großschreiben via Knopfdruck.[/COLOR]

Public Class Form1


    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click


        TextBox1.Text = UCase(TextBox1.Text)


    End Sub


End Class

[COLOR="Lime"]Von Dual in Dezimahl rechnen.[/COLOR]

Public Class Form2


Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        




        Dim faktor As Integer = 1
        Dim eingabe As String
        Dim such As String
        Dim position As Integer
        Dim zeichen As Char
        Dim suchstart As Integer = 0
        Dim anzeige As String = 0
        Dim anzahl As Integer = 0
        Dim ergebnis As Integer = 0


        eingabe = TextBox1.Text
        such = 1




        For position = eingabe.Length - 1 To 0 Step -1
            zeichen = eingabe(position)
            If zeichen = "1" Then
                anzahl = anzahl + 1
                ergebnis = ergebnis + faktor
            End If
            faktor = faktor * 2


        Next
        Label1.Text = "Ergebnis : " & vbCrLf & ergebnis






    End Sub


End Class

[COLOR="Lime"]Progressbar[/COLOR]

Public Class Form1


    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        ProgressBar1.value += 1
        If ProgressBar1.value = ProgressBar1.maximum Then
            MsgBox("Fertig")
        End If


    End Sub
End Class

[COLOR="Lime"]RadioButton[/COLOR]

Public Class Form1
    Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If RadioButton1.Checked Then
            MsgBox("Checked")
        Else
            MsgBox("Un Checked")
        End If
    End Sub
End Class
End Class

[COLOR="Lime"]FolderBrowserDialog[/COLOR]

Public Class Form1
   
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        FolderBrowserDialog1.ShowDialog()
    End Sub
End Class

[COLOR="Lime"]InputBox[/COLOR]

Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim passwort As String
        passwort = InputBox("Passwort eingabe", Modal)
        If passwort = "1234" Then
            MsgBox("Richtig")
        End If
    End Sub
End Class

[COLOR="Lime"]FormClosing[/COLOR]

[COLOR="Lime"][SIZE="1"]'FormClosing heisst was soll geschehen wenn [X] bei einem Programm gedrückt wird, in meinem fall eine MsgBox[/SIZE][/COLOR].

Public Class Form1
   
    Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
        MsgBox("Coding Stücke von Tink", MsgBoxStyle.SystemModal)
    End Sub
End Class

[COLOR="White"]Auch von mir folgt weiteres.[/COLOR]

Schon klar mir ist bewusst was invisible heisst ^^, nur wenn man dann weiter an der Form arbeitet und mehr Objekte auf die Form bringt dan Stört die Textbox nur.

Meiner meinung nach.

MfG

Ich.

Zitat von Sedrika;157390

Simpler gehts auch mit einer textbox, die auf invisible stellen und dann da "^" schreiben und dann

SendKeys.Send(textbox1.text)

So geht es auch :D

Aber Textbox wäre wenn er eh nur das Zeichen senden will Blöde da sie zu Groß ist (mann kann sie kleiner machen ich weis) Label wäre glaube ich besser dafür :D

also SendKeys.Send (label1.text)

MfG

Ich :D

[SIZE="4"][COLOR="DarkOrange"]Hätte da vieleicht eine Lösung für euch :D[/COLOR][/SIZE]

Imports System.Threading.Thread


Public Class Form1
    
    Public Declare Auto Function keybd_event Lib "user32.dll" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Int32, ByVal dwExtraInfo As Int32) As Boolean


    
    Public Shared Sub KeySend(ByVal vKey As Integer)
        keybd_event(CByte(vKey), 0, 0, 0)
        Sleep(1000)
        keybd_event(CByte(vKey), 0, 2, 0)
        Sleep(50)
    End Sub


    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Timer1.Start()
    End Sub


    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        AppActivate("FLYFF")
        KeySend([SIZE="5"][COLOR="Red"]70[/COLOR][/SIZE])
    End Sub


End Class

[SIZE="4"][COLOR="Red"]Dort wo 70 steht trägst du die zahl ein die deine Taste hatt, die Taste findest du im Link:[/COLOR][/SIZE]

Virtual-Key Codes

Das heisst halt alles nur das er die Taste Kurz drückt wieder los läßt und wieder drückt.

[SIZE="5"][COLOR="Purple"]MfG

Tink :D[/COLOR][/SIZE]

Hoffe konnte Helfen.

Zu geil wie die denn mit den Hammern verprügeln wollen xDD oder wie der sich das Fahrrad pickt xDDDD aber auf einer art auch schwachsinnig xD

Zitat von Code;156887

Hey, hier mal was klassisches [ohne Animation],
kann ja sein, dass es dir trotzdem zusagt:

Avatar:

Code

http://s7.directupload.net/images/100706/aiuv9zar.png

Signatur:

Code

http://s1.directupload.net/images/100706/yhjtzukf.png

Hoffe es gefällt dir Tink :P

MfG Code

Ich finde die sachen Geil :D nur mein Name sollte noch ein wenig größer sein und besser ins bild passen.

Was? ich kann meine cores nicht vergeben? und die sind nicht erscheatet die habe ich von Buru bekommen, lol ich habe garnichts er cheatet.

dann pm mal deine icq nummer.

weil habe dich auch gelöscht ^^

Aber Sedrika ist ein Er ist dir bewusst oder? naja ist auch egal, wir werden morgen erfahren was mit Sedrika los ist, ich hoffe mal es geht ihm gut und wenn er im koma wünsche ich ihm alles gute und das er es schaft, ich bette für ihn sobald es sich rausstellt das er wirklich im koma ist (ja ich bin glaubig)

Edit: Krass Kyu du hast Genauso viele Thanks wie Beiträge Ö.Ö XD :D

Herzlichen Glückwunsch!