|
patelmurtuza wrote:
and it is not set for "Allow interaction with the desktop
Since your putting up a form that asks for user input when the "service" starts, you have two problems that will stop you dead in your tracks.
First, is the above quote. This should be a big clue. Without "allow interaction with desktop", you're never going to see your form since the services don't get a desktop. This is what is making your app quit immediately on startup.
Second, your app can't put up a form if there is no user logged in. Your service must be able to handle the service control managers window messages that say when a user is logging on, when the user logs off, when Windows starts and stops...
Your app can't handle these messages because it's a VB app that doesn't expose its message handler to you to override. VB.NET does do this. Once your app starts, normally, you MUST call the Win32 API function RegisterServiceControlHandlerEx with the pointer to another function, that you write, called HandlerEx. This function will receive the messages that notify you when a user if logging on and off and the normal service control messages like, stop, pause, resume. Even if you call this function, you still have the problem where your app must be running code in a loop to keep the app alive so the HandlerEx function does get killed.
SRVANY can't make ANY app a service. Especially ones that require user interaction!
Avoid the headaches with doing this and write the thing in VB.NET, which supports writing services natively. VB6 doesn't and is not a good choice for it at all.
RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome
|
|
|
|
|
I need my application to scan my harddrive folder by folder for files of type [whatever] and write the results to a file in the app directory.
Can anyone help me with this? Thanks.
[edit]
Yeah, yeah. Someone voted this post down as noise. Whatever. I'm just asking a simple question as I'm in the process of figuring out the answer on my own. I was just kind of hoping that someone had thirty seconds to point me towards something that could help me in my search.
Not everyone is an expert. I know I'm not, and I thought this website was meant to help people who didn't necessarily know everything. Sorry for wasting the time it took you to vote this post as noise in your opinion.
"Go to, I’ll no more on’t; it hath made me mad." - Hamlet
|
|
|
|
|
This sample checks the .Doc files and copy them to 1.txt file
Refer this for your problem
private ArrayList files = new ArrayList(); // ArrayList to store files
private void button1_Click(object sender, System.EventArgs e)
{
string path = @"C:\";
string ext = ".doc";
System.IO.DirectoryInfo dirInfo = new System.IO.DirectoryInfo(path);
LoopDirectory(dirInfo, ext);
// Save files
using(System.IO.StreamWriter sw = new System.IO.StreamWriter(@"C:\1.txt"))
{
foreach(string file in files)
sw.WriteLine(file);
sw.Close();
}
}
// Loop files
private void LoopDirectory(System.IO.DirectoryInfo dirInfo, string extension)
{
foreach(System.IO.FileInfo file in dirInfo.GetFiles())
{
if(file.Extension.ToLower() == extension.ToLower() )
files.Add(file.FullName);
}
foreach(System.IO.DirectoryInfo dir in dirInfo.GetDirectories())
LoopDirectory(dir, extension);
}
}
Sanjay Sansanwal
www.sansanwal.com
|
|
|
|
|
Thanks for your help. I appreciated it a lot.
This is a VB forum though, and I was hoping to see the answer in VB code.
Let me know if you can help. Thanks.
"Go to, I’ll no more on’t; it hath made me mad." - Hamlet
|
|
|
|
|
My mistake, check code in VB.NET
Dim files As New ArrayList
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim path As String
Dim ext As String
path = "C:\Documents and Settings"
ext = ".doc"
Dim dirInfo As New System.IO.DirectoryInfo(path)
LoopDirectory(dirInfo, ext)
Dim sw As New System.IO.StreamWriter("C:\1.txt")
For Each file As String In files
sw.WriteLine(file)
Next
sw.Close()
End Sub
Private Sub LoopDirectory(ByVal dirInfo As System.IO.DirectoryInfo, ByVal extension As String)
For Each file As System.IO.FileInfo In dirInfo.GetFiles()
If (file.Extension.ToLower() = extension.ToLower()) Then
files.Add(file.FullName)
End If
Next
For Each dir As System.IO.DirectoryInfo In dirInfo.GetDirectories()
LoopDirectory(dir, extension)
Next
End Sub
Sanjay Sansanwal
www.sansanwal.com
|
|
|
|
|
This might get you started.
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
' make a reference to a directory
Dim dirInfo As New IO.DirectoryInfo("c:\")
Dim dirArg As IO.FileInfo() = dirInfo.GetFiles(".whatever")
Dim dirFileInfo As IO.FileInfo
'list the names of all files in the specified directory
For Each dirFileInfo In dirArg
ListBox1.Items.Add(dirFileInfo)
Next
End Sub
|
|
|
|
|
Is this VB.net code? I only have VB 6. I'll see if I can adapt it.
Thanks for your help.
"Go to, I’ll no more on’t; it hath made me mad." - Hamlet
|
|
|
|
|
I was working on a basic tut to make a guessing game. The prog picks a random number from 1 to 10 and you have to try to guess it. It tells you if you guess too high or low or guess correctly. I want to add a reset button to start the form over and run the random number genreator again. I want to be able to play again without closing and relaunching the .exe file. Can anyone give me any idea of how to do this?
Thanks,
Glisson
|
|
|
|
|
Add 2 labels, 2 buttons and one textbox
private System.Windows.Forms.Button btnCheck;
private System.Windows.Forms.TextBox txtGuess;
private System.Windows.Forms.Label label1;
private System.Windows.Forms.Button btnReset;
private System.Windows.Forms.Label lblMessage;
WRITE THIS CODE IN EVENTS:
private int randomNumber = 0;
private void btnReset_Click(object sender, System.EventArgs e)
{
GenerateRandomNumber();
}
private void Form1_Load(object sender, System.EventArgs e)
{
GenerateRandomNumber();
}
private void GenerateRandomNumber()
{
this.txtGuess.Text = String.Empty;
this.lblMessage.Text = String.Empty;
Random rand = new Random();
// Generate a random number between specific intervals (1 and 10.)
this.randomNumber = rand.Next( 1, 10 );
}
private void button1_Click(object sender, System.EventArgs e)
{
try
{
string data = txtGuess.Text.Trim();
if(data == string.Empty) return;
int number = Convert.ToInt32(data);
if(this.randomNumber == number)
this.lblMessage.Text = "Correct";
else if(this.randomNumber > number)
this.lblMessage.Text = "Low";
if(this.randomNumber < number)
this.lblMessage.Text = "High";
}
catch{}
}
}
}
Sanjay Sansanwal
www.sansanwal.com
|
|
|
|
|
Hi,
I'm wanting to track the clicks a user takes through a menu in a Pocket PC VB.net App (.net compact framework)
Clicks are not registering when a user clicks a sub menu?
Does anybody know how to call the 'Popup' event when a user click on a sub menu?
Thanks in advance.
|
|
|
|
|
Your question would be better handled in the Embedded/Mobile forum, here[^].
RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome
|
|
|
|
|
How can i protect my application using the computer's registry files ??
Thnx
|
|
|
|
|
"Protect"?? - you can't. It's such an easy method to get around it's not worth the effort. Check into professional security package. Just Google for "developer application copy protection".
RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome
|
|
|
|
|
Hi
I am trying to compact and repair an access 2000 d/b from within vb.net using this code from microsoft:
Dim jro As JRO.JetEngine<br />
<br />
jro = New JRO.JetEngine()<br />
<br />
jro.CompactDatabase("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\nwind.mdb", _<br />
"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\NewNwind.mdb;Jet OLEDB:Engine Type=5")<br />
<br />
MsgBox("Finished Compacting Database!")
The problem is that when I try to replace the both the source and the destination file with application.startupath and my file name, vb.net breaks at the MsgBox line saying the the file is not found.
I have to use application.startupath in order for my app to find the database upon deployment.
I think the problem is that I do not knmow how to use application.startupath in this instance.
Any help?
|
|
|
|
|
SourceDB = Application.StartupPath & "\yourDataBase.mdb"
BackupDB = Application.StartupPath & "\yourDataBase.mdb.bak"
jro.CompactDatabase("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & SourceDB, _
"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & BackupDB & ";Jet OLEDB:Engine Type=5")
|
|
|
|
|
The more correct way would be to use the Combine static method of the Path class to combine the filename and StartupPath.
Imports System.IO
.
.
SourceDB = Path.Combine(Application.StartupPath, "yourDataBase.mdb")
BackupDB = Path.Combine(Application.StartupPath, "yourDataBase.mdb.bak")
jro.CompactDatabase("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & SourceDB, _
"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & BackupDB & ";Jet OLEDB:Engine Type=5")
RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome
|
|
|
|
|
|
I'm trying to build a little MP3 player application in VB 6. I need some sort of reference on the properties and methods of the Windows Media Player 9 ocx control. wmp.dll
If anyone could help me out I'd appreciate it. Thanks.
"Go to, I’ll no more on’t; it hath made me mad." - Hamlet
|
|
|
|
|
i think this is what you're looking for...
-jim
|
|
|
|
|
Yeah, I was just looking at this page when your reply came in. It's not much help actually. I was looking more for a sample project that uses all the functions. I did a google search on it but didn't find anything free, or in English.
[Edit:]
Hold the phone. One of the deep-level branches had the references I need. I just found it. Thanks.
Now if only I can get it to work. 
[Edit2:]
The darn thing doesn't say how to play, pause, and stop the thing programmatically.
[Edit3:]
But I'm a curious fellow, and I figured it out on my own. Ain't that always the way...
"Go to, I’ll no more on’t; it hath made me mad." - Hamlet
|
|
|
|
|
Hi everyone!
I have a Word document that contains linked and embedded Excel worksheets. I need to determine the range of cells that get displayed in the Word document. For a linked worksheet, I get the cells range from the InLineShape.OLEFormat.Label property. But this does not work for embedded InLineShapes. Does anyone know where/how to get the embedded worksheet cells range for embedded worksheets?
Thanks.
Robert
|
|
|
|
|
I would like to know if someone is familiar with Quark File. I must absolutely know how to extract informations conatined in these files. Someone can help me ?
I am a newbie
|
|
|
|
|
Which program?
Quark Publishing or Quark the Game?
What Type of Information?
|
|
|
|
|
Quark XPress, the name of the textbox, picturebox, document, all that is in the file, all i can get from it with a streamreader is that :
IIXPR3B B DC 2UÈA` ¥Ó¦Sü¥SÑø €$ €$ €$ €$ $ d )z 33 $ $ š §Ó d $ §ÓšýçÓçü {T {T € € À À € ìþûsUU 3ó Ý$ Ý$ % $ 5^ ü°
I am a newbie
|
|
|
|
|
Unless you can find documentation on the file format for a Quark Express file, your wasting your time. Opening and reading a binary file is simple. Intelligently interpreting the contents and pulling out the information you need is impossible without the format documentation.
The only other way to do it without the docs is if Quark Express exposes a COM interface like WOrd and Excel does.
RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
