Hirdetés
- D1Rect: Nagy "hülyétkapokazapróktól" topik
- Sub-ZeRo: Euro Truck Simulator 2 & American Truck Simulator 1 (esetleg 2 majd, ha lesz) :)
- sziku69: Szólánc.
- sziku69: Fűzzük össze a szavakat :)
- Luck Dragon: Asszociációs játék. :)
- ldave: New Game Blitz - 2025
- Magga: PLEX: multimédia az egész lakásban
- Sundesz: 20 éve a PH!-n
- jakra: Retro gyujtemenyem (cloud synced for safety...)
- WireGuard VPN a mindennapokra
Új hozzászólás Aktív témák
-
Baryka007
addikt
Üdv!
WshShell.AppActivate "Calc" evvel a paranccsal lenne egy kis gondom.... A gond az hogy két Calc van nyitva és a kettőt kéne váltania... de mindig csak az elsőnek felnyitott calcot húzza elő a progi nem lehetne megkülönböztetni a két calcot hogy a program a kettő között tudjon váltani ?
És ne haragudjatok... de a Visual Basicről halvány lila fogalmam sincs... szóval ha nem fárasztalak titeket nagyon le... akkor szájbarágósan magyarázzátok kérlek

-
Baryka007
addikt
Üdvözletem, a Batch fórumról kicsit át merészkedtem ide mert most egy Visual Basic programot kéne írnom ( erre sajnos képtelen a batch...) a lényeg hogy van egy ilyen programom eddig idáig jutottam vele...
Set WshShell = WScript.CreateObject("WScript.Shell")
WScript.Sleep 9000 '
For i = 1 To 1000
WshShell.AppActivate "AutoCad"
WshShell.SendKeys "{TAB}"
WScript.Sleep 50
WshShell.SendKeys "1"
WScript.Sleep 1500
WshShell.SendKeys "1"
WScript.Sleep 2000
WshShell.SendKeys "1"
WScript.Sleep 2000
WshShell.SendKeys "1"
WScript.Sleep 2000
WshShell.SendKeys "1"
WScript.Sleep 50
WshShell.SendKeys "a"
WScript.Sleep 50
NextA lényeg hogy a végén az "a" karaktert legalább 3mp ig lenyomva kéne tartania ... de ha meg az "a" betűt külön ciklusba rakom hogy kb 3 secig látszólagosan lenyomva tartsa előtte rendesen túráztatja a processzort és meg is áll egy kicsit az élet a gépem agyába amikor az a ciklus folyik szóval a lényeg hogy az "a" betűt a végén 3 secig kéne lenyomva tartania ... előre is köszönöm!

Új hozzászólás Aktív témák
- Packeta
- Windows 11
- Steam, GOG, Epic Store, Humble Store, Xbox PC Game Pass, Origin Access, uPlay+, Apple Arcade felhasználók barátságos izgulós topikja
- D1Rect: Nagy "hülyétkapokazapróktól" topik
- Elektromos autók - motorok
- Milyen billentyűzetet vegyek?
- Sub-ZeRo: Euro Truck Simulator 2 & American Truck Simulator 1 (esetleg 2 majd, ha lesz) :)
- sziku69: Szólánc.
- Samsung Galaxy S24 Ultra - ha működik, ne változtass!
- Bemutatta a Huawei a Band 10 okoskarkötőt
- További aktív témák...
- Bontatlan! Új Lenovo Thinkpad T14 G5 Tartós Üzleti Laptop 14" -45% Ultra 7 165U 16/512 FHD+ Magyar!
- Bomba Ár! Fujitsu LifeBook E751 - i5-2GEN I 4GB I 500GB I DVDRW I 15,6" HD I Cam I W10 I Gari!
- Bomba ár! Dell Latitude E6440 - i5-4GEN I 8GB I 256SSD I 14" HD I HDMI I Cam I W10 I Garancia!
- Bomba ár! Dell Latitude E6540 - i5-4GEN I 8GB I 500GB I HDMI I 15,6" HD I Cam I W10 I Garancia!
- Bomba Ár! Lenovo ThinkPad E15 G4 AMD - Ryzen 5 5625U I 8GB I 256SSD I 15,6" FHD I HDMI I W11 I Gari
- Lenovo E490 Notebook i7/16/500
- BESZÁMÍTÁS! ASUS H510M i3 10105F 16GB DDR4 512GB SSD RX 590 8GB ZALMAN T4 Plus ADATA 600W
- GYÖNYÖRŰ iPhone 11 Pro Max 256GB Gold -1 ÉV GARANCIA - Kártyafüggetlen, MS3268, 100% Akkumulátor
- Apple iPhone 13 128GB, Kártyafüggetlen, 1 Év Garanciával
- Dell Latitude Precision Üzleti gépek, 2-in-1 gépek, 8-12. gen.
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest
Cég: NetGo.hu Kft.
Város: Gödöllő



