EIN PAAR FRAGEN..... :-))

[JohnDoe]

HI,

ich habe da mal ein paar Fragen:

- Wie kann ich einen 10stelligen String ins ASCII-Format umwandeln? (Bitte Code, wenns geht)
- Wie kann ich in die Registry schreiben und lesen?
- Wie kann ich auf/abrunden auf die 2. Stelle hinter dem Komma
- Wie kann ich den angemeldeten Benutzer herausfinden?
- Wie kann ich die aktuelle Netzwerk-IP herausfinden?
- Wie kann ich das OS herausfinden?
- Wie kann ich restlos durch eine Zahl teilen?
- Wie kann ich feststellen ob ein String gerade oder ungerade Anzahl von Zeichen hat?
- Wie kann ich auf einen FTP-Server hochladen?
- Wie kann ich eine Fortschrittsanzeige für einen Download erstellen?

Wäre cool wenn mir einer (oder mehrere) helfen könnten!

CU,

John Doe

[cYrus]

zu 1.


strMeinString = "WasIstDenn"
strResult = ""
FOR intCounter = 1 to len(strMeinString)
strResult = strResult & asc(mid$(strMeinString,intCounter,1)) & vbcrlf
NEXT intCounter

msgbox strResult


den rest dürfen auch die anderen beantworten ;)

so long
cYrus

[Bibolorean]

Das mit dem Benutzer Namen:


Private Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long

Dim UserName As String
Dim Rückgabewert
UserName = Space(128)

Rückgabewert = GetUserName (UserName, Len(UserName))

lblUser.Caption = lblUser.Caption & " " & UserName



ich könnt dir ein Prog mailen, dass so einiges ausliest, auch RAM und physikalischer Speicher (frei/belegt und so..) 8)

ist zwar nicht so gut, hab´s damals aber auch nur gebraucht um die API´s kennenzulernen 8)


Greetz Bìbòlorean
PS: Jeder soll was machen! :D

noch PS´r: Bis ich das mit dem CODE hingebracht habe?!? :rolleyes:
man muss sich dran gewöhnen! :]

[Bibolorean]

Ach noch ein Tipp zu den Api´s.. es gibt den:
APILoad.exe

öffne mit dem die Text-Datei:
WIN32API.TXT

das ist aber leider nur ein "Nachschlagewerk", bei dem du schon genau weisst, wie die API heisst, oder wenigstens wenn du weisst, wie man API´s ansteuert und auch ein wenig Englisch kannst! ;)

Greetz Bìbòlorean

[USSEraser]

Mal ein paar kleine Hilfen. Ich hoffe du hast die MSDN Libary.

Registry:
v=GetSetting(...) und Savesetting(...,v)

Runden:
Round(Zahl,[stellen])

Teilen:
\ anstat /

Stringlänge:
len(String)
if len() mod 2 = 0 then gerade

[JohnDoe]

hi,

kann mir jetzt noch jemand ein Code-Schnipsel geben, der einen String in Hexadezimalzeichen umwandelt, und zwischen jedem umgewandelten zeichen eine Leerstelle einfügt?

Danke

[MeltDown]

hi,

meinste dass hier ??
-------------------------------------------------

String = Hex(deinString) + chr(10)

-------------------------------------------------
wobei ich nicht ganz genau weiss ob chr(10) für leerzeichen steht :D

cya