Keresés: - Visual Basic - PROHARDVER! Hozzászólások

Hirdetés

Legfrissebb anyagok

PROHARDVER! témák

Mobilarena témák

IT café témák

GAMEPOD témák

LOGOUT témák

Keresés

Új hozzászólás Aktív témák

#1736 #90999040 törölt tag Oly #1734

Új Válasz 2012-04-14 08:58:48 #1736
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

#90999040

törölt tag

válasz Oly #1734 üzenetére

Van rá lehetőség, winapi mouse_event(), vagy SendInput() függvényével.
A mouse_event() használata egyszerűbb, de a MS már új fejlesztésekhez nem ajánlja. A SendInput() bonyolultabb, de ezzel pl. billentyűlenyomást is lehet generálni, és a MS ezt ajánlja inkább...
#1735 martonx veterán Oly #1734

Új Válasz 2012-04-12 13:24:00 #1735
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

martonx

veterán

válasz Oly #1734 üzenetére

Ilyen automatizációkra a legjobb az AutoIt nevű programnyelv. VB-szerű könnyű szintaxisa van, és erre van specializálva.
#1724 ArchElf addikt Oly #1723

Új Válasz 2012-04-06 09:38:10 #1724
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

ArchElf

addikt

válasz Oly #1723 üzenetére

Úgy rémlik, hogy az automata üzenetküldö férgek letöréséért a nem Office-ból meghívott Outlook objektumok nem tudnak automatikusan levelt küldeni. Van valami registry beállítás (vagy group/local policy elem), amin keresztül ezt lehet engedélyezni. De nagyon rég volt már amikor ezzel szmbekerültem (6-7 éve), szóval egy kis googlizásba belekerül, mire megtalálom...
Esetleg próbáld meg C# (.NET) alkalmazással...
AE
#1722 ArchElf addikt Oly #1721

Új Válasz 2012-04-06 07:29:54 #1722
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

ArchElf

addikt

válasz Oly #1721 üzenetére

A VBS (VB Script), a VBA (VB for Applications) és a VB6 szintaktikailag (és a használt metódusok, osztályok alapján is) nagyon hasonló - de nem teljes mértékben átjárható. Ha teszel fel példát, talán megtaláljuk, miért nem megy.
AE
#1720 martonx veterán Oly #1719

Új Válasz 2012-04-05 21:14:15 #1720
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

martonx

veterán

válasz Oly #1719 üzenetére

Mit értesz futtatható EXE alatt? VBS-t? .hta-t?
Ugyan makró, makró, de sajnos nem 100% az átjárhatóság közöttük.
#1686 Oly őstag Oly #1684

Új Válasz 2012-03-05 12:39:07 #1686
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

Oly

őstag

válasz Oly #1684 üzenetére

Az otthoni gépemen már működött a lenti script, de melóban nem megy.
Win7 + Outlook 2007 és Server 2003 + Outlook 2010 esetén sem ment.
Azt mondta, hogy:
ActiveX component can't create object: 'Outlook.Application'
#1685 ArchElf addikt Oly #1682

Új Válasz 2012-03-05 10:05:33 #1685
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

ArchElf

addikt

válasz Oly #1682 üzenetére

document.getElementById("orszagok").value
RadioButton esetén is működik, ha van ID property-je... Nálad nem volt.
Amúgy meg RadioButtonra ott a
document.getElementsByName("szin")
Ezen egy foreach-el végignyomulsz, és megnézed melyik value melett igaz a checked property...
AE
#1683 martonx veterán Oly #1682

Új Válasz 2012-03-05 06:06:19 #1683
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

martonx

veterán

válasz Oly #1682 üzenetére

radio button-nak is ugyanígy lekérdezhető az értéke. Viszont minden egyes gombot külön objektumként kell ellenőrizni, hogy melyiknek igaz a .checked tulajdonsága.
Javascriptes példáktól hemzseg az internet.
#1443 ArchElf addikt Oly #1440

Új Válasz 2011-09-19 16:05:07 #1443
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

ArchElf

addikt

válasz Oly #1440 üzenetére

Asszem megvan:
Excelben a celláknak van Value propery-je, de a form elemeknek (pl textbox) nincs, csak Caption vagy Text (text a szerkeszthető elemeknek pl TextBox, caption a nem szerkeszthetőknek pl. Form, Label, Button). Ezt problémázza szerintem a script futtató...
AE
#1438 ArchElf addikt Oly #1434

Új Válasz 2011-09-19 11:11:53 #1438
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

ArchElf

addikt

válasz Oly #1434 üzenetére

Hol van ez futtatva (access, ha jól rémlik?)
Hirtelen ezeket találtam:
- Mi az a Bontás Pending?
- GOTO értelmetlen, használj Exit Sub-ot
- probalkozasok hol kap értéket, nincs átadva a Sub-nak, ez valami globális objektum?
- user() implementálva van?
- Ezeket mire használod?
Kiertesito1, Kiertesites1, Kiertesito2, Kiertesites2, Kiertesito3, Kiertesites3
- indentálásra figyelj:
If akármi Then 'művelet 1 'művelet 2 Else 'művelet 3 'művelet 4 End If
így legalább olvasható lesz a kód
- használj Option Explicit-et (minden változót kötelező deklarálnod Dim akármi-vel, de legalább véd az elgépelés és a túlzott mértékű változó használat ellen)
AE
#1436 ArchElf addikt Oly #1434

Új Válasz 2011-09-19 10:33:48 #1436
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

ArchElf

addikt

válasz Oly #1434 üzenetére

Hol hal el?
írj be az elejére egy
On Error Resume Next-et
A végére meg ezt:
If Err Then MsgBox(Err.Number & vbCrLf & Err.Description) Err.Clear() End If On Error Goto 0
Ez majd kiírja, mi a hiba, akkor lehet majd egy kicsit pontosabban ráközelíteni a problémára...
AE
#1434 Oly őstag Oly #1431

Új Válasz 2011-09-19 10:27:39 #1434
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

Oly

őstag

válasz Oly #1431 üzenetére

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
#1428 ArchElf addikt Oly #1425

Új Válasz 2011-09-19 09:08:07 #1428
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

ArchElf

addikt

válasz Oly #1425 üzenetére

Script elején GetLocale()-al le tudod kérdezni az aktuális terület beállítást, utána
SetLocale(id)-val beállítod a kívántat, majd a script végén visszaállítod az eredetit...
AE
#1427 martonx veterán Oly #1425

Új Válasz 2011-09-19 08:52:14 #1427
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

martonx

veterán

válasz Oly #1425 üzenetére

én a helyedben megpróbálnám makróban lekezelni a területi beállításokból fakadó eltéréseket. Egyáltalán makróban lehet megnézni, hogy pontosan mi és miért nem megy. Ha pedig ez megvan, akkor már kb. meg is oldottad a problémát.
#1425 Oly őstag Oly #1410

Új Válasz 2011-09-19 08:41:13 #1425
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

Oly

őstag

válasz Oly #1410 üzenetére

Sziasztok.
Mivel nem tudjuk a területi beállításokat állítani minden gépen, ezért valami más megoldásra lenne szükségem.
Próbálkoztam, hogy az én gépemen is átállítom angolra, de nem történt semmi, majd mikor visszaállítottam magyarra, akkor az én gépemen sem ment már a dolog.
Sőt!
Ami eddig ment (másik adatbázisban), az sem megy most már.
Van valami alternatív lehetőség, ami területi beállítástól független?
Sajnos ez az alkalmazás több 100 gépen (PC, Terminal, Laptop) fog futni, és nem tudjuk máshogy megoldani.
Ha kell, újra építem az egészet, csak mondjátok el hogy mire figyeljek...
Milyen karaktereket ne használjak, vagy mi miatt akadnak ezek össze?
ELőre is köszönöm.
#1416 martonx veterán Oly #1415

Új Válasz 2011-09-15 08:32:49 #1416
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

martonx

veterán

válasz Oly #1415 üzenetére

területi beállítások mindkettőn legyen magyar.
#1411 ArchElf addikt Oly #1410

Új Válasz 2011-09-14 15:37:24 #1411
Új hozzászólás
Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
Privát üzenet küldése

ArchElf

addikt

válasz Oly #1410 üzenetére

Angol/Magyar Acces esetleg (egyiken ez, másikon az)?
AE