Hirdetés
-
Három éve fontos döntést hozott az AI-ról az Apple
it A Bloomberg szerint saját chipekkel működtetné az AI-szervereket az Apple.
-
Ghost of Tsushima - A PC-s kiadás több mint 170 régióban elérhetetlen lesz
gp Hasonlóan a Helldivers II-höz, ahol nincs PSN regisztrációra lehetőség, ott nem lehet megvenni a programot.
-
A Corsair égisze alá kerül a Fanatec
ph A szimulátorrajongók körében nem épp ismeretlen név követi a a Drop, az Elgato, az Origin PC és a SCUF Gaming által kitaposott ösvényt.
Új hozzászólás Aktív témák
-
Bumbi0
csendes tag
válasz ArchElf #1153 üzenetére
Meg viszont, újabb gondom van, amit sehogy nem tudok megoldani és a Google sem segített és más fórumok sem.
Egy textboxhoz szeretnék adatot küldeni, de a WM_SETTEXT nem felüírja azt, hanem hozzáfűzi és a WM_CLEAR nem hajlandó kitörölni a tartalmát.A másik, hogy SendMessage-el és Post Message-el is próbáltam egér kattintást küldeni egy window-n lévő gombra, viszont nem kattint rá. Paintbe megnéztem és ott viszont minden gond nélkül kattint. Sajnos a gombnak nem elérhető a handle-je Spy++-al így arra nem tudok hivatkozni csak a formon lévő koordinátára. A SetCursor és Mouse_event párosítás nem jó, mert gyakran elő fordul. hogy a gomb takarásban van más program által, ezért a formra hivatkozok jelenleg.
Előre is köszi a segítséget!
Egyébként valóban többet kellett volna a Google-ben keresnem
-
Bumbi0
csendes tag
-
Bumbi0
csendes tag
válasz ArchElf #1161 üzenetére
Úgy néz ki elakadtam!
Ennek http://www.codeproject.com/KB/threads/winspy.aspx és a fentebb beszúrt linkeknek a segitségével próbálom megoldani, hogy más program memóriájában tudjak keresni.
A most linkelt linken a 3. módszer próbálom megvcalósitani, a kód injektálást a program memóriájába. Ott egy ilyen összegzés látható:
Now, we can summarize this technique in the following steps:
1, Retrieve a HANDLE to the remote process (OpenProces).
2, Allocate memory in the remote process's address space for injected data (VirtualAllocEx).3, Write a copy of the initialised INJDATA structure to the allocated memory (WriteProcessMemory).
4, Allocate memory in the remote process's address space for injected code.
5, Write a copy of ThreadFunc to the allocated memory.
6, Start the remote copy of ThreadFunc via CreateRemoteThread.
7, Wait until the remote thread terminates (WaitForSingleObject).
8, Retrieve the result from the remote process (ReadProcessMemory or GetExitCodeThread).
9, Free the memory allocated in Steps #2 and #4 (VirtualFreeEx).
10, Close the handles retrieved in Steps #6 and #1 (CloseHandle).Elvileg az első kettőt megcsináltam, de nem értem hogy milyen kódot kéne bejuttatnom a process memóriájába!
Az előző hozzászólásban emlitett linkenhez (http://www.codeproject.com/KB/threads/MDumpAll.aspx) hasonló dolog kellene, hogy csak simán a Process memóriában stringet keresni, az egész C-ben van megirva és nem sokat értek belőlle!
Sajnos nem tudom, hogy folytathatnám tovább. Azt nem értem, hogy a ProcDumpos linken nem is emlitenek DLL/kód injektálást és tud a memóriában olvasni, a másik módszernél akkor miért kell?
Előre is köszönöm szépen a segitségeteket!
Eddig igy néz ki a kód:
[DllImport("user32.dll", SetLastError=true)]
static extern uint GetWindowThreadProcessId(IntPtr hWnd, out uint lpdwProcessId);[DllImport("kernel32.dll")]
static extern IntPtr OpenProcess(ProcessAccessFlags dwDesiredAccess, [MarshalAs(UnmanagedType.Bool)] bool bInheritHandle, UInt32 dwProcessId);[Flags]
enum ProcessAccessFlags : uint
{
All = 0x001F0FFF,
Terminate = 0x00000001,
CreateThread = 0x00000002,
VMOperation = 0x00000008,
VMRead = 0x00000010,
VMWrite = 0x00000020,
DupHandle = 0x00000040,
SetInformation = 0x00000200,
QueryInformation = 0x00000400,
Synchronize = 0x00100000
}[DllImport("kernel32.dll", SetLastError = true, ExactSpelling = true)]
static extern IntPtr VirtualAllocEx(IntPtr hProcess, IntPtr lpAddress, UInt32 dwSize, AllocationType flAllocationType, MemoryProtection flProtect);[Flags]
public enum AllocationType : uint
{
Commit = 0x1000,
Reserve = 0x2000,
Decommit = 0x4000,
Release = 0x8000,
Reset = 0x80000,
Physical = 0x400000,
TopDown = 0x100000,
WriteWatch = 0x200000,
LargePages = 0x20000000
}[Flags]
public enum MemoryProtection : uint
{
Execute = 0x10,
ExecuteRead = 0x20,
ExecuteReadWrite = 0x40,
ExecuteWriteCopy = 0x80,
NoAccess = 0x01,
ReadOnly = 0x02,
ReadWrite = 0x04,
WriteCopy = 0x08,
GuardModifierflag = 0x100,
NoCacheModifierflag = 0x200,
WriteCombineModifierflag = 0x400
}void str_Hotkey()
{
IntPtr hwnd, processHandle, remoteBuffer;
uint threadID, procID = 0;
const uint bufferSize = 1024;hwnd = GetWindowUnderCursor(); // Window handle-jének az átadása
GetWindowThreadProcessId(hwnd, out procID); // Window handle-ből ProcessID-nek a visszakapása
processHandle = OpenProcess(ProcessAccessFlags.All, true, procID); // Elvileg a process megynitása
remoteBuffer = VirtualAllocEx(processHandle, IntPtr.Zero, bufferSize, AllocationType.Commit, MemoryProtection.ExecuteWriteCopy); // Elvileg a process memóriájában foglal le memóriát a kódnak.}
-
Immy
őstag
válasz ArchElf #1188 üzenetére
Üdv
A hookolásról csak olvastam, saját magam még nem próbáltam ki, mert normális leírást, tutorialt nem találtam hozzá.
Controlokat hogyan tudom lekérni? (bocsi, de ez nekem még magas)(Nem hackelni akarok hanem csak adatokat kinyerni, ami akár lehet kép, akár szöveg, de szerintem a szöveg nehezebb)
Figyeltem a hálózati forgalmat wireshark-al:
https kapcsolaton megy a forgalom + azt hiszem rsa2-es védelem van még a küldött/fogadott szövegeken --> ez számomra feltörhetetlen.Apró: https://hardverapro.hu/aprok/hirdeto/immy/index.html
-
Briganti
tag
válasz ArchElf #1197 üzenetére
ezt kifejtened kicsit megkerlek?
nem ertem hogy milyen parameterekre gondolsz ... a fuggvenybe adjam at az adatokat (melyik tablabol s mit akarok torolni), es ott epitsem fel a query stringet?
If debugging is a process of removing bug, then programming is a process of putting them in ...
-
-
sunsaw
tag
válasz ArchElf #1245 üzenetére
Koszi. Megneztem, belekotortam forrásba is, és teljesen úgy csinálják, ahogy én. Rendes uj ablak, ShowInTaskbar false, ShowDialoggal megnyitni. De viszont nekik nem jelenik meg dupla az ALT-TAB-ra... nem tudom, miert van ez igy, amugy konvertalni kellett a projektet, mert en VS2010-et hasznalok, ez szamithat valamit? Megnézné nekem valaki, hogy melyik az a kulcspont, ami miatt nekem dupla ablak van a taszkváltásnál, nekik meg csak egy? Nincs otletem sem, olyan tul egyszeru a kod, hogy nem talalom a lenyeget meg sajnos, lehet, hogy nem jo pontra koncentralok es elkeruli valami a figyelmem
Sot, meg jobbat mondok, ezt csinalom: elinditom a programot, megnyitom a dialogus ablakot, ALT-TAB-nal csak a dialogusablak latszik. Ha elvaltok rola, majd vissza ALT-TAB-bal, akkor csak a dialogusablak jelenik meg, a foablak nem. Ha azt csinalom, hogy elinditom, megnyitom a dialogusablakot, es elvaltok, majd talcan kattintok a feladatra, akkor a foablak jon be, es nem a dialogusablak (szimulalt lefagyas, ami nem jo!). Mit kene tenni?
[ Szerkesztve ]
Windows Phone 7 Developer
-
sunsaw
tag
válasz ArchElf #1247 üzenetére
Kiprobaltam. Alkalmazas indit, majd ShowDesktop menu. Ha rakattintok az ikonra a talcan, akkor a foablak jelenik meg (hibasan, mert a megnyitott dialogusablaknak kellene), es ha ezutan koztvetlenul AL+TAB-olok, akkor ott meg a dialogusablak van kirakva kiskepnek es az is jon be. Nem ertem en ezt NEm hiszem, hogy desktop bug, mert az MS-nek mukodik, de egyszeruen nem latom, mi az, ami nalam hianyzik, lehet vmi titkos hidden focus event?
Windows Phone 7 Developer
-
sunsaw
tag
válasz ArchElf #1254 üzenetére
2010 RC. Eppen ez az, amit mondtam, hogy az SDK peldaban ez a bug nem jon elo, de az alkalmazasomban meg igen. Ugyanigy .net4 alatt is, SDK pelda OKés, szoval nincs ez a hulyeseg, az en alkalmazasomnal viszont mvan, szoval van itt valami megoldas, csak nem tudok rajonni (meg ezek szerint te sem!), hogy mi az.
Windows Phone 7 Developer
-
sunsaw
tag
válasz ArchElf #1257 üzenetére
Ez az amit nem tudok Nekem egyformanak tunnek, de ez nyilvan lehetetlen, kulonben akkor mar tul lennek ezen a dolgon Ha nem tul nagy gond, feltoltom a forrasokat valahova, aztan megnezheted, hatha a te erto szemed tobbet lat belole, benne vagY?
[ Szerkesztve ]
Windows Phone 7 Developer
-
sunsaw
tag
válasz ArchElf #1261 üzenetére
Igen, mert az emberek tobbsegenek az a baja, hogy a ShowDialog metodus valoban megnyitja dialogus modban az uj ablakot (letre kell hozni egyet feltetlenul, nem letezik Modal Windows vagy hasonlo WPF alatt, nem letezik iylen, mint Control), csak aztan furcsa modon banik a fokusszal (es most finoman fejeztem ki magam, mert eleg idegesito!). De az a vicces, hogy a Microsot SDK Sample-je meg ugy fut, mint ahogy azt el lehet varni, es az is ugyanugy .net 4 alatt. En nem tudom, mi a francot tehetnek ok bele, amitol nekik mukodik, nekem meg nem... direkt teszteltem, az o kodjuk tokeletes, egyetlen fokuszra utalos sort talaltam a kodjukban, ami az enyembol hianyzott szemmel lathatoan, azt atmasoltam, de ugy sem ment (sot MSDN-bol kiderult, az amugyis vmi tok masra van, amit beirtak, de varom a megoldasodat). Amugy igen, VS2010 RC kell hozza, meg esetleg egy JetBrains ReSharper Beta (5-os nightly build beta-t tettem hozza, mert az jo). Ja, IntelliSense PAtch-et rakd fel, kulonben idegbajt kapsz a 10 inditas utan: VS2010RC IntelliSense Patch
Windows Phone 7 Developer
-
Asesino
csendes tag
válasz ArchElf #1290 üzenetére
Köszönöm a segítséget, igazából nem az sp6 kellene hanem együtt a visual studio 6 sp6. Illetve az msdn library is kellene ehhez a verzióhoz. A 2010 rc verziót kihozza full iso-ba de a régebbi verzókat nem találom. Lehet én vagyok a lámer de ha esetleg meg lenne ez a link azt megköszönném.
-
bpx
őstag
válasz ArchElf #1299 üzenetére
nem is kellettek ide napok
bme msdnaa -
sunsaw
tag
válasz ArchElf #1377 üzenetére
7-zip nem rossz, de maradjunk ZIP-nél, mert szörnyű lenne, ha nem tudná a beépitett Windowsos kicsomagolni a cuccost. A másik ami nem tetszik ebben, hogy ez csak egy wrapper... hasonló lib teljesen nativ kódban viszont érdekelne a későbbiekben, ha tudsz mondani! Addig is ezt viszont köszönöm szépen!
Windows Phone 7 Developer
-
sunsaw
tag
válasz ArchElf #1379 üzenetére
Jahogyoké! De ez nem oldja meg akkor sem azt a kitételt, hogy wrapper-t ne. Valóban nem olvastam végig, lehet kövezni Azt hittem fájl formátum miatt mondod. Gyorsan áttúrtam codeplex-et, de úgy látszik nem sok alternativ megoldás van. Egyelőre a DonNetZip tetszik, a másik kettő meg amit mondtatok: SevenZipSharp és SharpZipLib. Mindegy, háromból azért már lehet válogatni Köszi mindenkinek.
Windows Phone 7 Developer
-
sunsaw
tag
válasz ArchElf #1387 üzenetére
Igen lehetséges, amennyiben az új DLL ugyanazt a célt hivatott szolgálni, tehát az interfészeknek, becsatlakozási pontoknak, publikus metódusoknak, paraméterkészleteknek és attribútumoknak minimum 100%-osan ugyanazt a szolgáltatáskészletet kell kifele mutatni a hivatkozó projektnek, és akkor nincs gond. Belül természetesen lehet szépíteni/fejleszteni a rutinokat, meg lehet új funkciókat hozzáadni (bár ennek sok értelmét nem látom, amennyiben publikusakká tesszük őket, mert úgyse lesznek hívva, inkább extra belsőknek látom még értelmét). Csináltunk is ilyet Microsoft partner programozói tanfolyamon, szóval én úgy tudom, hogy lehetséges, meg szoktam is ilyet csinálni én magam is, ha jól van megírva a DLL kódja meg a hivatkozó projekté, akkor nincs gond. Egyébként ilyen másolgatós cserélgetős dolgot, amennyiben nem setup projektet gyártasz, mindenféle konzolos batch fájl-lal is automatizálhatsz, ha ez még nem jutott volna eszedbe itt: jobb-klikk Projekt / Tulajdonságok / Build events fülön tudsz fordítás utáni parancsokat kiadatni vele (copy, xcopy, akarmi.bat, stb), és láttam olyat, aki ezt komolyan használja mindennapi életben (egy MVP).
Windows Phone 7 Developer
-
sunsaw
tag
válasz ArchElf #1389 üzenetére
Ha a solution-od része a DLL projektje, akkor persze, hogy újrafordul az egész, mert a VS figyeli a dependencia listát, és a DLL magával húzza a fő projektet is a fordítás során. Ezt csak úgy tudod kikerülni, ha teljesen ketté választod őket, ésa DLL-t külön solution-ba, külön projektbe teszed. Persze, emiatt két külön Visual Studio példányod lesz megnyitva egy időben, ha párhuzamosan akarod fejleszteni őket, de arra figyelj, hogy mindig a DLL-t kompájlold előbb! A DLL projekt post-build-jébe meg beteszed a másolgatós parancsokat, amik simán a másik solution megfelelő helyén felülírják a DLL-t, amire a hivatkozás mutat. Ha így csinálod, 100%, hogy nem kell újraforditanod a fő solutiont, elég futtatnod a kész .exe-t! Remélem jól értem, hogy mire gondolsz, bár nem vagyok benne teljesen biztos!
[ Szerkesztve ]
Windows Phone 7 Developer
-
amargo
addikt
-
sunsaw
tag
válasz ArchElf #1424 üzenetére
Ez egy elég jó tervezési taktika, még nem használtam a gyakorlatban többszálú alkalmazásvezérlést, de köszi az ötletet! Ez tényleg jó... van már valami neve a pattern-nek?
FehérHolló: arra van a szerkesztés gomb, 5 percen belül még lehet javítani, mint ahogy most én is ezt teszem
[ Szerkesztve ]
Windows Phone 7 Developer
-
REDeath
őstag
válasz ArchElf #1435 üzenetére
bár csak vasárnap leszek én gépemnél, de úgy emlékszem igen, totál szürke mindig..
pedig 64 bites vs2008 van, lehet service pack hiányzik neki? az azért durva lenne ha ezt a kvázi fő debugger funkciót 64 bitesben elrontották volna, ezé nem hinném hogy sp hiánya miatt lenneKodály mondta volt: "Legyen a zene mindenkié". en inkabb neki hiszek, mint az ASVAnak
-
mészi67
csendes tag
válasz ArchElf #1468 üzenetére
Szia!
Köszönöm hogy válaszoltál.
Ez egy tervrajz kezelő progi lenne. PictureBox-okban tárolok bizonyos rajzelemeket amik F1,F2, F3 gombok megnyomására megváltoznak. Ezért felül szeretném írni az előző állapotukat. Jelen pillanatban 56 db PictureBox van a formon, ami akár 120-ig is elmehet számításaim szerint. Egy db PictureBox-szal jól működik de az 56 db-nál már nem.
Egy kis kód a valós programból:Private Sub Terv_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim Fn As String
Fn = UjMunka.txtCim.Text
Me.FF0.Image = Image.FromFile("C:\Jet Grouting\Munkák\" & Fn & "\Terv\FF0.bmp")
Me.FF1.Image = Image.FromFile("C:\Jet Grouting\Munkák\" & Fn & "\Terv\FF1.bmp")
Me.FF2.Image = Image.FromFile("C:\Jet Grouting\Munkák\" & Fn & "\Terv\FF2.bmp")
Me.FF3.Image = Image.FromFile("C:\Jet Grouting\Munkák\" & Fn & "\Terv\FF3.bmp")
Me.FF4.Image = Image.FromFile("C:\Jet Grouting\Munkák\" & Fn & "\Terv\FF4.bmp")
Me.FF5.BackgroundImage = Image.FromFile("C:\Jet Grouting\Munkák\" & Fn & "\Terv\FF5.bmp")
Me.FF6.BackgroundImage = Image.FromFile("C:\Jet Grouting\Munkák\" & Fn & "\Terv\FF6.bmp")
Me.FF7.BackgroundImage = Image.FromFile("C:\Jet Grouting\Munkák\" & Fn & "\Terv\FF7.bmp")
Me.FF8.BackgroundImage = Image.FromFile("C:\Jet Grouting\Munkák\" & Fn & "\Terv\FF8.bmp")
Me.FF9.BackgroundImage = Image.FromFile("C:\Jet Grouting\Munkák\" & Fn & "\Terv\FF9.bmp")
Me.FF10.BackgroundImage = Image.FromFile("C:\Jet Grouting\Munkák\" & Fn & "\Terv\FF10.bmp")
Me.FF11.BackgroundImage = Image.FromFile("C:\Jet Grouting\Munkák\" & Fn & "\Terv\FF11.bmp")
Me.FF12.BackgroundImage = Image.FromFile("C:\Jet Grouting\Munkák\" & Fn & "\Terv\FF12.bmp")
Me.FF13.BackgroundImage = Image.FromFile("C:\Jet Grouting\Munkák\" & Fn & "\Terv\FF13.bmp")
Me.FF14.BackgroundImage = Image.FromFile("C:\Jet Grouting\Munkák\" & Fn & "\Terv\FF14.bmp")
Me.FF15.BackgroundImage = Image.FromFile("C:\Jet Grouting\Munkák\" & Fn & "\Terv\FF15.bmp")
Me.FF16.BackgroundImage = Image.FromFile("C:\Jet Grouting\Munkák\" & Fn & "\Terv\FF16.bmp")
Me.FF17.BackgroundImage = Image.FromFile("C:\Jet Grouting\Munkák\" & Fn & "\Terv\FF17.bmp")
Me.FF18.BackgroundImage = Image.FromFile("C:\Jet Grouting\Munkák\" & Fn & "\Terv\FF18.bmp")
IdeiglenesMentes()
Me.AllowDrop = True
KiValasztas.Top = 800
End If
End Sub
Private Sub FF0_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles FF0.MouseDown
mozoghat = True
pX = e.X
pY = e.Y
End Sub
Private Sub FF0_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles FF0.MouseMove
If mozoghat = True Then
Me.FF0.Left = Me.FF0.Left + e.X - pX
Me.FF0.Top = Me.FF0.Top + e.Y - pY
Me.JelFF0.Left = Me.JelFF0.Left + e.X - pX
Me.JelFF0.Top = Me.JelFF0.Top + e.Y - pY
End If
Me.OszlopName.Text = "FF0"
Me.JelName.Text = "JelFF0"
End Sub
Private Sub FF0_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles FF0.MouseUp
mozoghat = False
End Sub
Private Sub JelFF0_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles JelFF0.KeyDown
Dim Fn As String
Fn = UjMunka.txtCim.Text
If e.KeyCode = Keys.F2 Then
Me.FF0.Image = Program.My.Resources.FFUresKesz 'Image.FromFile("C:\Jet Grouting\Program\Képek\Cölöpök\FFUresKesz.bmp")
My.Computer.FileSystem.DeleteFile("C:\Jet Grouting\Munkák\" & Fn & "\Terv\FF0.bmp")
ElseIf e.KeyCode = Keys.F1 Then
Me.FF0.Image = Program.My.Resources.FFUresKiv 'Image.FromFile("C:\Jet Grouting\Program\Képek\Cölöpök\FFUresKiv.bmp")
My.Computer.FileSystem.DeleteFile("C:\Jet Grouting\Munkák\" & Fn & "\Terv\FF0.bmp")
ElseIf e.KeyCode = Keys.F3 And Keys.U Then
Me.FF0.Image = Program.My.Resources.FFures 'Image.FromFile("C:\Jet Grouting\Program\Képek\Cölöpök\FFures.bmp")
My.Computer.FileSystem.DeleteFile("C:\Jet Grouting\Munkák\" & Fn & "\Terv\FF0.bmp")
End If
End Sub
Private Sub JelFF0_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles JelFF0.MouseDown
MegnezJelet()
End Sub
Private Sub JelFF0_MouseEnter(ByVal sender As Object, ByVal e As System.EventArgs) Handles JelFF0.MouseEnter
Me.JelName.Text = "JelFF0"
Me.OszlopName.Text = "FF0"
End Sub
Module IdeiglenesBmp
Public Sub IdeiglenesMentes()
Dim Fn As String
Fn = UjMunka.txtCim.Text
Terv.FF0.Image.Save("C:\Jet Grouting\Munkák\" & Fn & "\Terv\FF0temporary.bmp", System.Drawing.Imaging.ImageFormat.Bmp)
Terv.FF0.Image.Save("C:\Jet Grouting\Munkák\" & Fn & "\Terv\FF0temporary1.bmp", System.Drawing.Imaging.ImageFormat.Bmp)
Terv.FF1.BackgroundImage.Save("C:\Jet Grouting\Munkák\" & Fn & "\Terv\FF1temporary.bmp", System.Drawing.Imaging.ImageFormat.Bmp)
Terv.FF1.BackgroundImage.Save("C:\Jet Grouting\Munkák\" & Fn & "\Terv\FF1temporary1.bmp", System.Drawing.Imaging.ImageFormat.Bmp)
Terv.FF2.BackgroundImage.Save("C:\Jet Grouting\Munkák\" & Fn & "\Terv\FF2temporary.bmp", System.Drawing.Imaging.ImageFormat.Bmp)
Terv.FF2.BackgroundImage.Save("C:\Jet Grouting\Munkák\" & Fn & "\Terv\FF2temporary1.bmp", System.Drawing.Imaging.ImageFormat.Bmp)
Terv.FF3.BackgroundImage.Save("C:\Jet Grouting\Munkák\" & Fn & "\Terv\FF3temporary.bmp", System.Drawing.Imaging.ImageFormat.Bmp)
Terv.FF3.BackgroundImage.Save("C:\Jet Grouting\Munkák\" & Fn & "\Terv\FF3temporary1.bmp", System.Drawing.Imaging.ImageFormat.Bmp)
Terv.FF4.BackgroundImage.Save("C:\Jet Grouting\Munkák\" & Fn & "\Terv\FF4temporary.bmp", System.Drawing.Imaging.ImageFormat.Bmp)
Terv.FF4.BackgroundImage.Save("C:\Jet Grouting\Munkák\" & Fn & "\Terv\FF4temporary1.bmp", System.Drawing.Imaging.ImageFormat.Bmp)
Terv.FF5.BackgroundImage.Save("C:\Jet Grouting\Munkák\" & Fn & "\Terv\FF5temporary.bmp", System.Drawing.Imaging.ImageFormat.Bmp)
Terv.FF5.BackgroundImage.Save("C:\Jet Grouting\Munkák\" & Fn & "\Terv\FF5temporary1.bmp", System.Drawing.Imaging.ImageFormat.Bmp)
Terv.FF6.BackgroundImage.Save("C:\Jet Grouting\Munkák\" & Fn & "\Terv\FF6temporary.bmp", System.Drawing.Imaging.ImageFormat.Bmp)
Terv.FF6.BackgroundImage.Save("C:\Jet Grouting\Munkák\" & Fn & "\Terv\FF6temporary1.bmp", System.Drawing.Imaging.ImageFormat.Bmp)
Terv.FF7.BackgroundImage.Save("C:\Jet Grouting\Munkák\" & Fn & "\Terv\FF7temporary.bmp", System.Drawing.Imaging.ImageFormat.Bmp)
Terv.FF7.BackgroundImage.Save("C:\Jet Grouting\Munkák\" & Fn & "\Terv\FF7temporary1.bmp", System.Drawing.Imaging.ImageFormat.Bmp)
Terv.FF8.BackgroundImage.Save("C:\Jet Grouting\Munkák\" & Fn & "\Terv\FF8temporary.bmp", System.Drawing.Imaging.ImageFormat.Bmp)
Terv.FF8.BackgroundImage.Save("C:\Jet Grouting\Munkák\" & Fn & "\Terv\FF8temporary1.bmp", System.Drawing.Imaging.ImageFormat.Bmp)
Terv.FF9.BackgroundImage.Save("C:\Jet Grouting\Munkák\" & Fn & "\Terv\FF9temporary.bmp", System.Drawing.Imaging.ImageFormat.Bmp)
Terv.FF9.BackgroundImage.Save("C:\Jet Grouting\Munkák\" & Fn & "\Terv\FF9temporary1.bmp", System.Drawing.Imaging.ImageFormat.Bmp)
Terv.FF10.BackgroundImage.Save("C:\Jet Grouting\Munkák\" & Fn & "\Terv\FF10temporary.bmp", System.Drawing.Imaging.ImageFormat.Bmp)
Terv.FF10.BackgroundImage.Save("C:\Jet Grouting\Munkák\" & Fn & "\Terv\FF10temporary1.bmp", System.Drawing.Imaging.ImageFormat.Bmp)
Terv.FF11.BackgroundImage.Save("C:\Jet Grouting\Munkák\" & Fn & "\Terv\FF11temporary.bmp", System.Drawing.Imaging.ImageFormat.Bmp)
Terv.FF11.BackgroundImage.Save("C:\Jet Grouting\Munkák\" & Fn & "\Terv\FF11temporary1.bmp", System.Drawing.Imaging.ImageFormat.Bmp)
Terv.FF12.BackgroundImage.Save("C:\Jet Grouting\Munkák\" & Fn & "\Terv\FF12temporary.bmp", System.Drawing.Imaging.ImageFormat.Bmp)
Terv.FF12.BackgroundImage.Save("C:\Jet Grouting\Munkák\" & Fn & "\Terv\FF12temporary1.bmp", System.Drawing.Imaging.ImageFormat.Bmp)
Terv.FF13.BackgroundImage.Save("C:\Jet Grouting\Munkák\" & Fn & "\Terv\FF13temporary.bmp", System.Drawing.Imaging.ImageFormat.Bmp)
Terv.FF13.BackgroundImage.Save("C:\Jet Grouting\Munkák\" & Fn & "\Terv\FF13temporary1.bmp", System.Drawing.Imaging.ImageFormat.Bmp)
Terv.FF14.BackgroundImage.Save("C:\Jet Grouting\Munkák\" & Fn & "\Terv\FF14temporary.bmp", System.Drawing.Imaging.ImageFormat.Bmp)
Terv.FF14.BackgroundImage.Save("C:\Jet Grouting\Munkák\" & Fn & "\Terv\FF14temporary1.bmp", System.Drawing.Imaging.ImageFormat.Bmp)
Terv.FF15.BackgroundImage.Save("C:\Jet Grouting\Munkák\" & Fn & "\Terv\FF15temporary.bmp", System.Drawing.Imaging.ImageFormat.Bmp)
Terv.FF15.BackgroundImage.Save("C:\Jet Grouting\Munkák\" & Fn & "\Terv\FF15temporary1.bmp", System.Drawing.Imaging.ImageFormat.Bmp)
Terv.FF16.BackgroundImage.Save("C:\Jet Grouting\Munkák\" & Fn & "\Terv\FF16temporary.bmp", System.Drawing.Imaging.ImageFormat.Bmp)
Terv.FF16.BackgroundImage.Save("C:\Jet Grouting\Munkák\" & Fn & "\Terv\FF16temporary1.bmp", System.Drawing.Imaging.ImageFormat.Bmp)
Terv.FF17.BackgroundImage.Save("C:\Jet Grouting\Munkák\" & Fn & "\Terv\FF17temporary.bmp", System.Drawing.Imaging.ImageFormat.Bmp)
Terv.FF17.BackgroundImage.Save("C:\Jet Grouting\Munkák\" & Fn & "\Terv\FF17temporary1.bmp", System.Drawing.Imaging.ImageFormat.Bmp)
Terv.FF18.BackgroundImage.Save("C:\Jet Grouting\Munkák\" & Fn & "\Terv\FF18temporary.bmp", System.Drawing.Imaging.ImageFormat.Bmp)
Terv.FF18.BackgroundImage.Save("C:\Jet Grouting\Munkák\" & Fn & "\Terv\FF18temporary1.bmp", System.Drawing.Imaging.ImageFormat.Bmp)
End Sub
End ModuleA hiba üzenet:
A generic error occurred in GDI+.
Állítólag a keretrendszer zárolja a fájlt, de biztos vagyok benne hogy van megoldás, amit én nem tudok megolgani a hobbi szintemmel.
A BackgroundImage csak a próbálgatás miatt van benne.
Ha egy kis példa kóddal segítenél a tudatlanságomon, örülnék.
Köszi -
mészi67
csendes tag
válasz ArchElf #1468 üzenetére
Ja a hibaüzenet a tervmentésekor lép fel. Ez lemaradt az előbbi üziről.
Module UjTervMentes
Public Sub TervSave()
Dim Fn As String, Fn1 As Integer
Fn = UjMunka.txtCim.Text
Terv.Kilep.Enabled = True
Terv.FF0.Image.Save("C:\Jet Grouting\Munkák\" & Fn & "\Terv\FF0.bmp", System.Drawing.Imaging.ImageFormat.Bmp)
Terv.FF1.Image.Save("C:\Jet Grouting\Munkák\" & Fn & "\Terv\FF1.bmp", System.Drawing.Imaging.ImageFormat.Bmp)
Terv.FF2.Image.Save("C:\Jet Grouting\Munkák\" & Fn & "\Terv\FF2.bmp", System.Drawing.Imaging.ImageFormat.Bmp)
Terv.FF3.Image.Save("C:\Jet Grouting\Munkák\" & Fn & "\Terv\FF3.bmp", System.Drawing.Imaging.ImageFormat.Bmp)
Terv.FF4.Image.Save("C:\Jet Grouting\Munkák\" & Fn & "\Terv\FF4.bmp", System.Drawing.Imaging.ImageFormat.Bmp)
'Terv.FF5.BackgroundImage.Save("C:\Jet Grouting\Munkák\" & Fn & "\Terv\FF5.bmp", System.Drawing.Imaging.ImageFormat.Bmp)
'Terv.FF6.BackgroundImage.Save("C:\Jet Grouting\Munkák\" & Fn & "\Terv\FF6.bmp", System.Drawing.Imaging.ImageFormat.Bmp)
'Terv.FF7.BackgroundImage.Save("C:\Jet Grouting\Munkák\" & Fn & "\Terv\FF7.bmp", System.Drawing.Imaging.ImageFormat.Bmp)
'Terv.FF8.BackgroundImage.Save("C:\Jet Grouting\Munkák\" & Fn & "\Terv\FF8.bmp", System.Drawing.Imaging.ImageFormat.Bmp)
'Terv.FF9.BackgroundImage.Save("C:\Jet Grouting\Munkák\" & Fn & "\Terv\FF9.bmp", System.Drawing.Imaging.ImageFormat.Bmp)
'Terv.FF10.BackgroundImage.Save("C:\Jet Grouting\Munkák\" & Fn & "\Terv\FF10.bmp", System.Drawing.Imaging.ImageFormat.Bmp)
'Terv.FF11.BackgroundImage.Save("C:\Jet Grouting\Munkák\" & Fn & "\Terv\FF11.bmp", System.Drawing.Imaging.ImageFormat.Bmp)
'Terv.FF12.BackgroundImage.Save("C:\Jet Grouting\Munkák\" & Fn & "\Terv\FF12.bmp", System.Drawing.Imaging.ImageFormat.Bmp)
'Terv.FF13.BackgroundImage.Save("C:\Jet Grouting\Munkák\" & Fn & "\Terv\FF13.bmp", System.Drawing.Imaging.ImageFormat.Bmp)
'Terv.FF14.BackgroundImage.Save("C:\Jet Grouting\Munkák\" & Fn & "\Terv\FF14.bmp", System.Drawing.Imaging.ImageFormat.Bmp)
'Terv.FF15.BackgroundImage.Save("C:\Jet Grouting\Munkák\" & Fn & "\Terv\FF15.bmp", System.Drawing.Imaging.ImageFormat.Bmp)
'Terv.FF16.BackgroundImage.Save("C:\Jet Grouting\Munkák\" & Fn & "\Terv\FF16.bmp", System.Drawing.Imaging.ImageFormat.Bmp)
'Terv.FF17.BackgroundImage.Save("C:\Jet Grouting\Munkák\" & Fn & "\Terv\FF17.bmp", System.Drawing.Imaging.ImageFormat.Bmp)
'Terv.FF18.BackgroundImage.Save("C:\Jet Grouting\Munkák\" & Fn & "\Terv\FF18.bmp", System.Drawing.Imaging.ImageFormat.Bmp)
'Terv.FA0.BackgroundImage.Save("C:\Jet Grouting\Munkák\" & Fn & "\Terv\FA0.bmp", System.Drawing.Imaging.ImageFormat.Bmp)
'Terv.FA1.BackgroundImage.Save("C:\Jet Grouting\Munkák\" & Fn & "\Terv\FA1.bmp", System.Drawing.Imaging.ImageFormat.Bmp)
'Terv.FA2.BackgroundImage.Save("C:\Jet Grouting\Munkák\" & Fn & "\Terv\FA2.bmp", System.Drawing.Imaging.ImageFormat.Bmp)
'Terv.FA3.BackgroundImage.Save("C:\Jet Grouting\Munkák\" & Fn & "\Terv\FA3.bmp", System.Drawing.Imaging.ImageFormat.Bmp)
'Terv.FA4.BackgroundImage.Save("C:\Jet Grouting\Munkák\" & Fn & "\Terv\FA4.bmp", System.Drawing.Imaging.ImageFormat.Bmp)
'Terv.FA5.BackgroundImage.Save("C:\Jet Grouting\Munkák\" & Fn & "\Terv\FA5.bmp", System.Drawing.Imaging.ImageFormat.Bmp)
'Terv.FA6.BackgroundImage.Save("C:\Jet Grouting\Munkák\" & Fn & "\Terv\FA6.bmp", System.Drawing.Imaging.ImageFormat.Bmp)
'Terv.FA7.BackgroundImage.Save("C:\Jet Grouting\Munkák\" & Fn & "\Terv\FA7.bmp", System.Drawing.Imaging.ImageFormat.Bmp)
'Terv.FA8.BackgroundImage.Save("C:\Jet Grouting\Munkák\" & Fn & "\Terv\FA8.bmp", System.Drawing.Imaging.ImageFormat.Bmp)
'Terv.FA9.BackgroundImage.Save("C:\Jet Grouting\Munkák\" & Fn & "\Terv\FA9.bmp", System.Drawing.Imaging.ImageFormat.Bmp)
'Terv.FA10.BackgroundImage.Save("C:\Jet Grouting\Munkák\" & Fn & "\Terv\FA10.bmp", System.Drawing.Imaging.ImageFormat.Bmp)
'Terv.FA11.BackgroundImage.Save("C:\Jet Grouting\Munkák\" & Fn & "\Terv\FA11.bmp", System.Drawing.Imaging.ImageFormat.Bmp)
'Terv.FA12.BackgroundImage.Save("C:\Jet Grouting\Munkák\" & Fn & "\Terv\FA12.bmp", System.Drawing.Imaging.ImageFormat.Bmp)
'Terv.FA13.BackgroundImage.Save("C:\Jet Grouting\Munkák\" & Fn & "\Terv\FA13.bmp", System.Drawing.Imaging.ImageFormat.Bmp)
'Terv.FA14.BackgroundImage.Save("C:\Jet Grouting\Munkák\" & Fn & "\Terv\FA14.bmp", System.Drawing.Imaging.ImageFormat.Bmp)
'Terv.FA15.BackgroundImage.Save("C:\Jet Grouting\Munkák\" & Fn & "\Terv\FA15.bmp", System.Drawing.Imaging.ImageFormat.Bmp)
'Terv.FA16.BackgroundImage.Save("C:\Jet Grouting\Munkák\" & Fn & "\Terv\FA16.bmp", System.Drawing.Imaging.ImageFormat.Bmp)
'Terv.FA17.BackgroundImage.Save("C:\Jet Grouting\Munkák\" & Fn & "\Terv\FA17.bmp", System.Drawing.Imaging.ImageFormat.Bmp)
'Terv.FA18.BackgroundImage.Save("C:\Jet Grouting\Munkák\" & Fn & "\Terv\FA18.bmp", System.Drawing.Imaging.ImageFormat.Bmp)
'Terv.VJ0.BackgroundImage.Save("C:\Jet Grouting\Munkák\" & Fn & "\Terv\VJ0.bmp", System.Drawing.Imaging.ImageFormat.Bmp)
'Terv.VJ1.BackgroundImage.Save("C:\Jet Grouting\Munkák\" & Fn & "\Terv\VJ1.bmp", System.Drawing.Imaging.ImageFormat.Bmp)
'Terv.VJ2.BackgroundImage.Save("C:\Jet Grouting\Munkák\" & Fn & "\Terv\VJ2.bmp", System.Drawing.Imaging.ImageFormat.Bmp)
'Terv.VJ3.BackgroundImage.Save("C:\Jet Grouting\Munkák\" & Fn & "\Terv\VJ3.bmp", System.Drawing.Imaging.ImageFormat.Bmp)
'Terv.VJ4.BackgroundImage.Save("C:\Jet Grouting\Munkák\" & Fn & "\Terv\VJ4.bmp", System.Drawing.Imaging.ImageFormat.Bmp)
'Terv.VJ5.BackgroundImage.Save("C:\Jet Grouting\Munkák\" & Fn & "\Terv\VJ5.bmp", System.Drawing.Imaging.ImageFormat.Bmp)
'Terv.VJ6.BackgroundImage.Save("C:\Jet Grouting\Munkák\" & Fn & "\Terv\VJ6.bmp", System.Drawing.Imaging.ImageFormat.Bmp)
'Terv.VJ7.BackgroundImage.Save("C:\Jet Grouting\Munkák\" & Fn & "\Terv\VJ7.bmp", System.Drawing.Imaging.ImageFormat.Bmp)
'Terv.VJ8.BackgroundImage.Save("C:\Jet Grouting\Munkák\" & Fn & "\Terv\VJ8.bmp", System.Drawing.Imaging.ImageFormat.Bmp)
'Terv.VJ9.BackgroundImage.Save("C:\Jet Grouting\Munkák\" & Fn & "\Terv\VJ9.bmp", System.Drawing.Imaging.ImageFormat.Bmp)
'Terv.VB0.BackgroundImage.Save("C:\Jet Grouting\Munkák\" & Fn & "\Terv\VB0.bmp", System.Drawing.Imaging.ImageFormat.Bmp)
'Terv.VB1.BackgroundImage.Save("C:\Jet Grouting\Munkák\" & Fn & "\Terv\VB1.bmp", System.Drawing.Imaging.ImageFormat.Bmp)
'Terv.VB2.BackgroundImage.Save("C:\Jet Grouting\Munkák\" & Fn & "\Terv\VB2.bmp", System.Drawing.Imaging.ImageFormat.Bmp)
'Terv.VB3.BackgroundImage.Save("C:\Jet Grouting\Munkák\" & Fn & "\Terv\VB3.bmp", System.Drawing.Imaging.ImageFormat.Bmp)
'Terv.VB4.BackgroundImage.Save("C:\Jet Grouting\Munkák\" & Fn & "\Terv\VB4.bmp", System.Drawing.Imaging.ImageFormat.Bmp)
'Terv.VB5.BackgroundImage.Save("C:\Jet Grouting\Munkák\" & Fn & "\Terv\VB5.bmp", System.Drawing.Imaging.ImageFormat.Bmp)
'Terv.VB6.BackgroundImage.Save("C:\Jet Grouting\Munkák\" & Fn & "\Terv\VB6.bmp", System.Drawing.Imaging.ImageFormat.Bmp)
'Terv.VB7.BackgroundImage.Save("C:\Jet Grouting\Munkák\" & Fn & "\Terv\VB7.bmp", System.Drawing.Imaging.ImageFormat.Bmp)
'Terv.VB8.BackgroundImage.Save("C:\Jet Grouting\Munkák\" & Fn & "\Terv\VB8.bmp", System.Drawing.Imaging.ImageFormat.Bmp)
'Terv.VB9.BackgroundImage.Save("C:\Jet Grouting\Munkák\" & Fn & "\Terv\VB9.bmp", System.Drawing.Imaging.ImageFormat.Bmp)
End If
End Sub
End Module -
mészi67
csendes tag
válasz ArchElf #1471 üzenetére
Megpróbálok képet is feltenni hogy legyen fogalmad az egészről.
Visual Studio 2005-ben nyomulok.
A vonszolás azért kell hogy meghatározott helyre tehessem a vezérlőt, mert ugyebár nem minden ház alaprajza egyforma.
A téglalapok az alaprajzot szimbolizálják, a képdobozok pedig az alapmegerősítés helyét, a szövegdobozok pedig adatokat jelenítenek meg, pl. dátum, cölöpszám, méter stb. Dupla klikkre zummolom a szöveg dobozt.
A dinamikus kezeléssel erre gondoltál? Pl. egy másik prog. részlet:Try
o = Terv.OszlopName.Text
p = Terv.JelName.Text
megnez = 5000
Terv.Controls.Item(p).BringToFront()
Terv.Controls.Item(o).Image = Image.FromFile("C:\Jet Grouting\Program\Képek\Cölöpök\FFUresNagy.bmp")
c = Terv.Controls.Item(p).Left
For k = 1 To 8.2
If c > k Then
varj_ennyit = 60
End If
System.Threading.Thread.Sleep(varj_ennyit)
Terv.Controls.Item(p).Left = Terv.Controls.Item(p).Left + k
Terv.Refresh()
Next kSajna kép nem megy , csak worldben tudnám küldeni de azt sem tudom hogy tehetném fel.
-
Gregorius
őstag
válasz ArchElf #1484 üzenetére
Tök általános exceptiont nem nagyon lehet rendesen lekezelni. Logolásra inkább az unhandled exception handler való: AppDomain.UnhandledException.
[ Szerkesztve ]
-
x007
tag
válasz ArchElf #1487 üzenetére
Ott nem kell elkapnod az exceptiont, elég ha tryfinally-t használsz. Egyébként szerintem ilyen esetekben érdemes csinálni egy Scope : IDisposable osztályt (lsd TransactionScope), ami transzparensen kezeli a külső "erőforrást". Impersonation esetén nekem így nézett ki:
using(new ImpersonationScope(domain, user, password))
{
}[ Szerkesztve ]
-
ArchElf
addikt
válasz ArchElf #1489 üzenetére
És a using + IDisposable sem megoldás:
using(new ImpersonationScope(domain, user, password))
{
}
// Megfelel ennek
ImpersonationScope i = new ImpersonationScope(domain, user, password);
//1. probléma
try
{
{
}
}
//2. probléma
finally
{
i.Dispose();
}
Két helyen is lehet vele gond:
1. Ritka esetben - de kihasználható módon (pl thread.Abort()) - lehet kivételt generálni az impersonation és a try között
2. Mivel nincs catch blokk, így a hívó rutin le tudja kezelni a futtatott kód esetleges hibáját, amit nem kapott el egy catch-el, mielőtt, még az i.Dispose() lefutna.AE
[ Szerkesztve ]
Csinálok egy adag popcornt, és leülök fórumozni --- Ízlések és pofonok - kinek miből jutott --- Az igazi beköpőlégy [http://is.gd/cJvlC2]
-
x007
tag
válasz ArchElf #1493 üzenetére
Ez más, próbáld ki (false-t fog kiírni)
static bool admin = false;
private static void IAmSoEvil()
{
try
{
DoTheThing();
}
catch(Exception ex)
{
if (true)
{
Console.WriteLine(admin);
}
}
}
private static void DoTheThing()
{
try
{
admin = true;
DoTheAdminThing();
}
finally
{
admin = false;
}
}
private static void DoTheAdminThing()
{
throw new Exception();
}Ha jól értelmeztem a linkedet akkor azt írták, hogy az exception dobása két fázisban történik, először megkeresi a catch ágat, amiben lekezelhető a kivétel, ezért kiértékeli a when függvényt. Második fázisban végrehajtja a finally-ket és a megtalált catch ágat.
Mivel ezek 5 éves cikkek, elképzelhető, hogy ezt a mechanizmust javították már azóta (jogos lenne). Nincs VB-m, hogy kipróbáljam...
[ Szerkesztve ]
-
Gregorius
őstag
válasz ArchElf #1493 üzenetére
Ez nem teljesen ugyanaz. A CLR támogatja az exception filtert, a VB.NET is, a C# nem. Lényeges különbség, hogy míg VB.NET-ben feltétel teljesülése esetén kapod el az exceptiont, C# esetén mindenképpen elkapod. Az exception filter logika a belső finally blokkok előtt fut le, a fenti C#-os megoldás feltétele utána.
Új hozzászólás Aktív témák
● ha kódot szúrsz be, használd a PROGRAMKÓD formázási funkciót!
- MECHANIC PCB repair PAD - 2. generációs kialakítás
- DC csatlakozós ventilátor kábel - 1 utas vagy 3 utas változat
- ÚJ, bontatlan iPad PRO 13 (2024) M4 CHIP! 256GB WIFI asztrofekete, 1 év Apple garancia!
- Samsung Galaxy S22 Ultra 5G 256GB, Kártyafüggetlen, 1 Év Garanciával
- HP Victus 16-r1019nt - ÚJ 16" FullHD IPS GAMER notebook - i7-14700HX, 32GB, RTX 4070
- Dell G3 3590 gamer notebook (i7, 16GB, NVIDIA GeForce GTX 1650)
- Eladó ÚJ, bontatlan Spider Man 2 Playstation 5 játék
- Olcsó/modded/kishibás/hiányos tápok: FSP Hexa 500, TT 850, Corsair VS550, Seasonic 450
- Xbox one kontroller, joystick
- HPE Smart Array P222 (HBA módba állítva) + 512MB FBWC + kondenzátor
Állásajánlatok
Cég: Ozeki Kft.
Város: Debrecen
Cég: Promenade Publishing House Kft.
Város: Budapest