|
Wat do you mean by VB form, you have a browser control in a VB program ?
Christian Graus
Please read this if you don't understand the answer I've given you
"also I don't think "TranslateOneToTwoBillion OneHundredAndFortySevenMillion FourHundredAndEightyThreeThousand SixHundredAndFortySeven()" is a very good choice for a function name" - SpacixOne ( offering help to someone who really needed it ) ( spaces added for the benefit of people running at < 1280x1024 )
|
|
|
|
|
Hi,
I wanna to get hard disk serial number i m using this code it work well in my pc but in client pc it doesn't give hdd serial no i don't know that
given number belogs to which physical media?
<br />
Dim mgmtobj As New ManagementObject<br />
Dim searcher As ManagementObjectSearcher<br />
<br />
searcher = New ManagementObjectSearcher("SELECT * FROM Win32_PhysicalMedia")<br />
<br />
For Each mgmtobj In searcher.Get<br />
If mgmtobj("SerialNumber") = Nothing Then<br />
serial = ""<br />
Else<br />
serial = mgmtobj("SerialNumber").ToString.Trim<br />
End If<br />
Next<br />
Really its very urgent for me now
Thanks
The Great Pleasure In Doing That Things That Other People Say U Can't By Doing This U Can Shut Their Mouth
|
|
|
|
|
Please read the forum guidelines. Using 'urgent' in your message (or title) is frowned upon and my get you ignored completely.
|
|
|
|
|
I have this code in my library for getting the HDD serial number.
I know its not the best code - I cant remember where I got it from, but it does seem to work on the few machines I have tested it with:
Dim mobjSearcher As New ManagementObjectSearcher("SELECT * FROM Win32_LogicalDisk WHERE Name = 'C:'")
For Each obj As ManagementObject In mobjSearcher.Get
Return obj("VolumeSerialNumber").ToString
Next
Return "00000000000000"
Maybe it will work for you?
|
|
|
|
|
But - the obvious mistake you have made is...
If you find more than one drive in your search, and the SECOND drive doesnt have a serial number (for whatever reason), you are clearing the serial number...
Oops?
Thats the problems with for...next loops setting variables.
|
|
|
|
|
First of all thanks to all for reply
I know its not good to say "Urgent" but its really very very urgent for me so i had to wrote
Thanks Jasey9 for your code but....
<br />
Return obj("VolumeSerialNumber").ToString<br />
I have already tried it but it will return the volume number of a particular Drive like C: but after format the Pc it will change
so i need only the serial number of hard disk
Is there any way to varify that the number returned by searcher = New ManagementObjectSearcher("SELECT * FROM Win32_PhysicalMedia")
is hard disk serial number,I need your guidance...
Thanks
The Great Pleasure In Doing That Things That Other People Say U Can't By Doing This U Can Shut Their Mouth
|
|
|
|
|
hi
What do you want to do with a HDD Serial number, for sure it changes when the HDD get formated. its not Stable, if you want this for Software protection thing, then i think you should go for Processor ID, that will never change.
Thanks
Vuyiswa Maseko,
Sorrow is Better than Laughter, it may Sadden your Face, but It sharpens your Understanding
VB.NET/SQL7/2000/2005
http://vuyiswamb.007ihost.com
http://Ecadre.007ihost.com
vuyiswam@tshwane.gov.za
|
|
|
|
|
I need to copy some of the selected rows from 1 excel file into another excel file through VB?
Also I need to serach in the second excel?
Can anybody help me???
|
|
|
|
|
|
--> How will i control the limit the occurences of a character in the textbox..?
For example i want hyphen("-") should not occur more than twice. How will i do this...
J A Nasir K
|
|
|
|
|
use below code
Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
If InStr(TextBox1.Text, e.KeyChar) Then
e.KeyChar = ""
End If
End Sub
Rajesh B --> A Poor Workman Blames His Tools <--
|
|
|
|
|
hi,
Use the below mentioned code:
Dim i As Integer = 0
Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
If e.KeyChar = "a"c Or e.KeyChar = "A"c Then
i += 1
If i >= 3 Then
MsgBox("Sorry, letter 'a' has already been used Twice")
e.Handled = True
End If
End If
End Sub
I hope this would be helpful.
Vinay
ComponentOne LLC.
www.componentone.com
|
|
|
|
|
--> How can i restart or shutdown my computer from the dotNet application..?
J A Nasir K
|
|
|
|
|
Use Shutdown.exe
process.start("shutdown","-r")
Rajesh B --> A Poor Workman Blames His Tools <--
|
|
|
|
|
--> What do you mean by "-r" in the second argument..?
J A Nasir K
|
|
|
|
|
Usage: shutdown [-i | -l | -s | -r | -a] [-f] [-m \\computername] [-t xx] [-c "comment"] [-d up:xx:yy]
No args Display this message (same as -?)
-i Display GUI interface, must be the first option
-l Log off (cannot be used with -m option)
-s Shutdown the computer
-r Shutdown and restart the computer
-a Abort a system shutdown
-m \\computername Remote computer to shutdown/restart/abort
-t xx Set timeout for shutdown to xx seconds
-c "comment" Shutdown comment (maximum of 127 characters)
-f Forces running applications to close without warning
-d [u][p]:xx:yy The reason code for the shutdown
u is the user code
p is a planned shutdown code
xx is the major reason code (positive integer less than 256)
yy is the minor reason code (positive integer less than 65536)
Rajesh B --> A Poor Workman Blames His Tools <--
|
|
|
|
|
This is a "poor-man's" solution and only works on XP and above.
Using the Windows API function ExitWindowsEx[^] would be the correct way to go here.
|
|
|
|
|
Wouldn't ExitWindowsEx P/Invoke API help you out?
Vasudevan Deepak Kumar
Personal Homepage
Tech Gossips
A pessimist sees only the dark side of the clouds, and mopes; a philosopher sees both sides, and shrugs; an optimist doesn't see the clouds at all - he's walking on them. --Leonard Louis Levinson
|
|
|
|
|
Hello every one,
I am making a application similar to paint brush...
Hear i am finding one issue that pen width '1' is too small and '2' is really big...
is there any way i can have width between 1 and 2?
regards
Nishkarsh
|
|
|
|
|
Hi,
Pen width takes a floating-point number (a Single in your language). Did you ever consider
and try something like 1.5?
|
|
|
|
|
It is taken as a single in VB.net.
I tried 1.5 and all... it did not threw any error but the size also did not changed..
|
|
|
|
|
You could try setting the Smoothing Mode of your graphics object to be of an antialiased:
g.SmoothingMode = SmoothingMode.HighQuality
That will deal with 1/2 pixels well, but is a bit slower.
|
|
|
|
|
you may not notice a difference between 1 and 1.5 when drawing a horizontal or vertical line,
after all the pixels of your screeb are discrete, so it will hit either one row of them, or two.
Things should be different though for slanted lines, circles, etc,
|
|
|
|
|
Thanks a lot to both of you..
Inputs from each one of u had resolved one part of my issue
|
|
|
|
|
Hi Luc
i think i will need a bit more clarity on pen width..
there is for sure some difference between size 1.6 and 2.0 . But there is a huge difference between 1.5 and 1.6 (i am using huge in relative terms only.. )...
This is making the line width uneven in the application...
is there some thing more i need to look at or i am missing out???
Regards
Nishkarsh
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
