- sziku69: Fűzzük össze a szavakat :)
- sziku69: Szólánc.
- Luck Dragon: Asszociációs játék. :)
- ubyegon2: Airfryer XL XXL forrólevegős sütő gyakorlati tanácsok, ötletek, receptek
- gban: Ingyen kellene, de tegnapra
- VoidXs: Tényleg minden játék optimalizálatlan?
- laskr99: Újrakezdem a processzor és videókártya szilícium magok fotózását
- Steven: Sokat utazó kávéfüggők ide!
- f(x)=exp(x): A laposföld elmebaj: Vissza a jövőbe!
- droidic: Így beszélhetsz élő emberrel EA supportban
Új hozzászólás Aktív témák
-
Oly
őstag
Most addig eljutottam, hogy néhány helyen már futnak a scriptek, de még mindig nem mind.
pl ez sem:Private Sub Command34_Click()
Dim proba As Long
'Dim sortores As String
'sortores = ""
hivas = MsgBox("Hívtad a kontaktot?", vbQuestion + vbYesNo, "Megerősítés")
If hivas = vbNo Then
GoTo Vege
End If
If probalkozasok.Value > 0 Then
sortores = vbCrLf
End If
probalkozasok.Value = probalkozasok.Value + 1
nvf = MsgBox("Sikerült elérni az ügyflelet?", vbQuestion + vbYesNo, "Kérdés")
If nvf = vbYes Then
hozzafuz = InputBox("Eredmény", "Kérlek add meg, hogy mire jutottál")
lezarass = MsgBox("Lezáruk a jegyet sikeres kiértesítéssel?", vbQuestion + vbYesNo, "Lezárás")
If lezarass = vbYes Then
Lezarva = 2
MyFile = "BP.txt"
fnum = FreeFile()
Open MyFile For Append As fnum
Write #fnum, Now(), user(), "M", ID, Lezarva
Close #fnum
End If
Else
hozzafuz = "Nem vette fel"
End If
Kiertesites_eredmenye = Kiertesites_eredmenye & sortores & probalkozasok & ". kiértesítés: " & hozzafuz
If probalkozasok.Value = 1 Then
Kiertesito1 = user()
Kiertesites1 = Now()
End If
If probalkozasok.Value = 2 Then
Kiertesito2 = user()
Kiertesites2 = Now()
End If
If probalkozasok.Value = 3 Then
Kiertesito3 = user()
Kiertesites3 = Now()
lezaras = MsgBox("Ez volt a harmadik próbálkozás! Lezáruk a jegyet sikertelen kiértesítéssel?", vbQuestion + vbYesNo, "Lezárás")
If lezaras = vbYes Then
Lezarva = 3
MyFile = "BP.txt"
fnum = FreeFile()
Open MyFile For Append As fnum
Write #fnum, Now(), user(), "M", ID, Lezarva
Close #fnum
End If
End If
Vege:
End Sub
Új hozzászólás Aktív témák
- exHWSW - Értünk mindenhez IS
- Revolut
- sziku69: Fűzzük össze a szavakat :)
- Elektromos autók - motorok
- Xbox Series X|S
- EarFun Air Pro 4 - a cél a csúcs
- Autós topik látogatók beszélgetős, offolós topikja
- Kerékpárosok, bringások ide!
- Nothing Phone (2) - több, mint elsőre látszik
- Windows 10
- További aktív témák...
- Dobozos Új gamer MSI Katana 15 /i7-12650H/16GB/1TB SSD/RTX 4070 8GB GB/144Hz/Gari
- Huawei Watch Fit 4 Pro 3 év garancia, Huawe Freebuds 2
- Xiaomi Redmi 14 PRO 5 G 8/256 DUAL garanciával
- Dell Precision 7670 FHD+ i9-12950HX 16C / 64G D5 / 1T G4 / Quadro RTX A4500 16GB / HU vb Pro tervező
- LG OLED55G42LW LG Gyári garancia 3 év
- NYÁRI BOMBA AKCIÓK! STEAM, UBISOFT CONNECT, EA APP, XBOX EREDETI KULCSOK 100% GARANCIA
- ÁRGARANCIA!Épített KomPhone i7 14700KF 32/64GB RAM RTX 5070Ti 16GB GAMER PC termékbeszámítással
- Telefon felvásárlás!! iPhone 14/iPhone 14 Plus/iPhone 14 Pro/iPhone 14 Pro Max
- BESZÁMÍTÁS! Gigabyte A620M R5 7500F 32GB DDR5 500GB SSD RX 6700XT 12GB Cooler Master CMP 520L 750W
- Asus ROG G20AJ - Intel Core i7-4790, GTX 980
Állásajánlatok
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest
Cég: Promenade Publishing House Kft.
Város: Budapest