|
We had a ASP.NET 1.1 Windows app that had the code below that I'm now trying to implement in ASP.NET 2.0 Windows app. The problem is that Main is "not found". The idea behind this is that it checks to see if the server has a new version and, if it does, it downloads it to the client computer and updates it. Can't figure out what I'm doing wrong... I get the error at the first Try / Catch at typeContent.InvokeMember. The error message is "Method 'Example.My.MyApplication.Main' not found."
The code is based off of the posting found at http://www.codeproject.com/KB/dotnet/DotNetBuildSmClnts.aspx[^]
Thanks,
Dan
Imports System.Reflection
Imports System.Security
Imports System.Security.Policy
Public Class Utility
Friend Shared Sub CheckForNewVersion()
Dim assemblyContent As System.Reflection.Assembly = Nothing
Dim strURL As String = "http://www.example.com/example/example.exe"
Try
assemblyContent = System.Reflection.Assembly.LoadFrom(strURL)
Dim Version As String
Version = Replace(assemblyContent.FullName, Microsoft.VisualBasic.Left(assemblyContent.FullName, assemblyContent.FullName.LastIndexOf("Version=")), "")
Version = Microsoft.VisualBasic.Left(Version, Version.LastIndexOf(", Culture="))
Version = Replace(Version, "Version=", "")
If My.Application.Info.Version.ToString <> Version Then
Dim typeContent As System.Type
typeContent = assemblyContent.EntryPoint.ReflectedType()
Try
typeContent.InvokeMember("Main", BindingFlags.Instance Or BindingFlags.NonPublic Or BindingFlags.Public Or BindingFlags.InvokeMethod Or BindingFlags.Static, Nothing, Nothing, Nothing)
Catch ex As Exception
SetSecurity(assemblyContent.Location.ToString)
Try
typeContent.InvokeMember("Main", BindingFlags.Instance Or BindingFlags.NonPublic Or BindingFlags.Public Or BindingFlags.InvokeMethod Or BindingFlags.Static, Nothing, Nothing, Nothing)
Catch exp As Exception
WriteToEventLog("Invoking Main(): " & exp.ToString, EventLogEntryType.Error)
'End
End Try
End Try
Try
System.IO.File.Delete(assemblyContent.Location.ToString)
Catch ex As Exception
End Try
End If
Catch ex As Exception
End Try
End Sub
Private Shared Sub SetSecurity(ByVal Location As String)
' Irrelevant code here
End Sub
End Class
modified on Monday, July 21, 2008 12:49 AM
|
|
|
|
|
Hi,
Anyone can tell me if getting the current time of other computer is possible in VB6? I'm not using a SQL Server just VB it self. If possible can someone teach me or give an idea how to do it?
Thanks
Regards,
klaydze
if(you type your code here) {
Messagebox.Show("You help me a lot!");
}
else {
You help me = null;
}
|
|
|
|
|
Where is your vb6 app executing and of which computer you want current time.
Develop2Program & Program2Develop
|
|
|
|
|
You need an NTP client, such as this one[^].
If you are wanting to get the time from a computer on your network then you'll have to install an NTP server on it.
|
|
|
|
|
hi klaydze
Have you noticed that there is VS2008, man its Good, there is something they call Silverlight, nice Technologies.i was Developing in vb6 before, and am laughing at myself when i when i looked at vb6. Why Continue with vb6 man. what you want is Simple in .NET
Change Microsoft does not Support vb6 anymore its Dead
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
|
|
|
|
|
Vuyiswa Maseko,
yes your idea in using VB2008 is good, but the program is existing and i just want to update there existing program. And the program is running in a third party software which is a Rockwell Software what they called RS View also the program is VBA not totally VB6. Maybe i will try all your suggestions.
Thanks
Regards,
klaydze
if(you type your code here) {
Messagebox.Show("You help me a lot!");
}
else {
You help me = null;
}
|
|
|
|
|
klaydze wrote: VB6
As the others have suggested, get away from VB6, it's been dead for a long time now. Put your efforts into VB.NET or C#.
"The clue train passed his station without stopping." - John Simmons / outlaw programmer
"Real programmers just throw a bunch of 1s and 0s at the computer to see what sticks" - Pete O'Hanlon
|
|
|
|
|
I want to execute an msi package with adequate permissions on XP SP 2 computers that do not have local administrator logged in. Everything is working fine with *.exe, but msi packages do not run.
This is what I have picked up from articles on the Internet and am trying to do:
command = "msiexec.exe /?" 'Even this is not working
Try
CreateProcessWithLogonW(user, domain, password, Convert.ToUInt32(1), _
command, command, Convert.ToUInt32(0), Convert.ToUInt32(0), _
currentDirectory, startupInfo, processInfo)
Catch ex As Exception
Console.WriteLine(ex.ToString())
End Try
There is no exeption thrown, or anything in the System event log on my test computers except messages about The Windows Installer service entered the running state, and stopped state.
Is there anything special I am missing? Pointers in the right direction, or alternative ways to do this would be much appreciated.
|
|
|
|
|
We use clickonce, however we also have a number of issues where the admin access is restricted. You need to remember the prerequesites, IE the dotnet runtime and anything else you may be installing that does not go into the app folder. Also if you are relying on any registry entries for your app you are dead in the water also.
Never underestimate the power of human stupidity
RAH
|
|
|
|
|
Thank you for replying. I forgot to mention I am running .net v 1.1 and visual studio 2003. The small application I am making is supposed to be used for controlling application roll-outs and upgrades with Microsoft Systems Management Server 2003. Client computers differ in regard to what they have installed, an often it is recommended to uninstall an application before making an upgrade. I know I can run queries from sms to find out wich computer has what application, but I think that it will be more tidy to advertise packages that can "decide" wether to run an install/uninstall or not.
For example Adobe Flash Player ActiveX should be uninstalled and the computer rebooted before upgrading, (this works since the uninstaller is *.exe and I can reboot the computer with sms), but there is also a plugin msi for Firefox, and i want this msi to run IF firefox is installed on that machine.
Everything is working except for launching the msi. Maybe I could try to launch a vbs script from my app that again launches the msi? But then there is the admin rights issue again.
Any suggestions or alternatives is appreciated.
|
|
|
|
|
Just to inform others that might be thinking about a similar way to deploy software. I have found out that launching a vbs file with this function does not work either.
|
|
|
|
|
Hello,
How can I find all the shared folders in a network ?
I want to populate a database with all the pictures on the drives of my metwork in a single loop.
I can do it from a kwon startfolder but not for all the folders in the network
Thanks
|
|
|
|
|
Wow thats a potentially nasty program to put on a corporate netwrok!
You could loop through each drive mapped to your machine and then through each folder as you must be doing.
For drives not mapped to your machine you will need permissions and the name of each share. Discovering the shares - someone else will need to help you there.
Never underestimate the power of human stupidity
RAH
|
|
|
|
|
Hi
I have filled a dataset at runtime and then binded to bindingsource1, it is working nicely but when i was searching the list it is continuously ignoring the first item.
dim idx as Integer = BindingSource1.Find("City",CityName)
Then I manually check the idx property and if it is -1 then it checks the first item if it matches or not and it matches.
If idx=-1 then
If BindingSource1.Item(0)("CityName") = CityName then idx=0
End if
Although the technique works but why is it so and why can't it find the first row?
Regards,
MAP Tiger
Tiger Softwares
Software Designer and Developer
VB.NET, ASP.NET, VFP
|
|
|
|
|
Dataset is corrupt perhaps project is running properly but i cant not edit data set errors are like
3 The custom tool 'MSDataSetGenerator' failed while processing the file 'betmangerDataSet.xsd'.
2 Type 'BetManager.betmangerDataSetTableAdapters.sportsTableAdapter' is not defined.
Error 3 'DataSetName' is not a member of 'BetManager.betmangerDataSet'.
Error 4 'SchemaSerializationMode' is not a member of 'BetManager.betmangerDataSet'.
Error 5 Type 'BetManager.betmangerDataSetTableAdapters.sportsTableAdapter' is not defined.
Warning 6 Function 'getData' doesn't return a value on all code paths. A null reference exception could occur at run time when the result is used.
what are possible causes of these errors
|
|
|
|
|
Everything seems to be a result of the first error. Try to determine why the tool failed.
Despite everything, the person most likely to be fooling you next is yourself.
|
|
|
|
|
Wow
You have a lot of Errors, From the First Error we cant know until you show us the code. Well the last Error means that you have define a function but at the at your Fuction does not return a value. lets see how you wrote your code, but from what you wrote it look messy.
Dont worry we alll start somewhere, i used to get such error before 
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
|
|
|
|
|
Hi, i was wondering why my code did not add a new row after clicking button1 again.
Its supposed to work like :
1. key in value to "textbox1.text"
2. click button1
3. compare if against each row, if value is equal copy to datagrid2
4. further button1 clicks will add the new rows of result to datagrid2(but now it does not add the row, just overwrites the first row)
<br />
button1.click<br />
Dim dr As DataRow, drNew as DataRow<br />
Dim dt As DataTable = objDataSet.Tables(0)<br />
Dim dt2 As New DataTable<br />
<br />
dt2.Columns.Add("IC Roll")<br />
dt2.Columns.Add("F2")<br />
dt2.Columns.Add("F3")<br />
<br />
For Each dr In dt.Rows<br />
For i As Integer = 0 To dt.Columns.Count - 1<br />
If dr(i).ToString = TextBox1.Text Then<br />
drNew = dt2.NewRow<br />
drNew(0) = dr(0)<br />
drNew(1) = dr(1)<br />
drNew(2) = dr(2)<br />
<br />
dt2.Rows.Add(drNew)<br />
drNew = Nothing<br />
Exit For<br />
End If<br />
Next<br />
Next<br />
<br />
DataGrid2.DataSource = dt2
|
|
|
|
|
Each time you click the button you are creating dt2 as a new table, and then refreshing the grid with the contents of that new table which, according to your nested for loops, may never have more than one row of data. You want to create the dt2 table outside of the Button1.Click handler, but known to that handler, and then you will not be stepping on the contents of the table each time you click the button.
|
|
|
|
|
hi,
I use vertical line in report(.rdlc).i simply draw a list and within it,i draw a line in vertical mode.but at run time it height is decreased. however horizental line is displayed properly
please suggest me if anyone have idea about this issue
|
|
|
|
|
I want a ComboBox to allow the user to add items to the list.
I am trying this...
Private Sub CBSelectName_KeyDown(ByVal sender As Object, ByVal e As
System.Windows.Forms.KeyEventArgs) Handles CBSelectName.KeyDown
If e.KeyCode = Keys.Enter And CBSelectName.Text IsNot Nothing Then
CBSelectName.Items.Add(CBSelectName.Text)
CBSelectName.Text = Nothing
End If
End Sub
Now, it won't recognise
KeyCode
Any suggestions?
------------------------------------
"I want you to imagine I have a blaster in my hand" - Zaphod Beeblebrox.
"You DO have a blaster in your hand" - Freighter Pilot
"Yeah, so you don't have to tax your imagination too hard" - Zaphod Beeblebrox
|
|
|
|
|
Hi,
yes System.Windows.Forms.KeyEventArgs has a KeyCode property.
Dalek Dave wrote: Now, it won't recognise KeyCode
Please expand.
|
|
|
|
|
At the point where it says
If e.KeyCode = Keys.Enter And CBSelectName.Text IsNot Nothing Then
I type the If e. bit, then there is no option for Keycode.
I haven't declared the
System.Windows.Forms.KeyEventArgs
I may state that I am new to VB and have never written anything more complicated than a purchase order system for work.
This is to be a small program so that the HR person may select/input a name, and the relevent details can then be accessed/edited.
I have several text/numerical/image files, so that the screen shows a picture of the staff member and the department/salary etc.
How do I declare the System.Windows
(Also, I am using the express edition, does this make a difference?
------------------------------------
"I want you to imagine I have a blaster in my hand" - Zaphod Beeblebrox.
"You DO have a blaster in your hand" - Freighter Pilot
"Yeah, so you don't have to tax your imagination too hard" - Zaphod Beeblebrox
|
|
|
|
|
Hi,
your code is fine, but there seems to be something slightly wrong in Visual Studio 2008 VB.NET
I tried a new project, directly entered the code, and Intellisense was not recognizing most of it,
as if it was unaware of the references that get added automatically when creating a WinApp project
(such as System.Windows.Forms).
This is a way that works well:
- create a new WinApp project
- before adding any code, compile and run it
- now start editing either the form or the code at your leisure.
You should notice that Intellisense kicks in when you hit the period at System, then
at System.Windows, etc etc
Intellisense not working properly without an initial compile/run seems like a bug (or at
least a small malfunction) 
modified on Saturday, July 19, 2008 9:18 PM
|
|
|
|
|
Badabing!
Thanks, it seems ok now.
I didn't think i was doing things wrong.
What I need it to do is now happening, I do prefer it when they obey you rather than ignore you!
------------------------------------
"I want you to imagine I have a blaster in my hand" - Zaphod Beeblebrox.
"You DO have a blaster in your hand" - Freighter Pilot
"Yeah, so you don't have to tax your imagination too hard" - Zaphod Beeblebrox
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
