Good Daily Idea

Toyota Sienta 2016

2016-03-25T21:23:00.000-04:00

The production plant Toyota Motor East Japan, inches. Miyagi plant Ohara functional, active and fun Interior; The exterior of the exterior design adaptable chair has been placed in a single provision of the stadium, gradually increasing towards the rear. This gives the lateral silhouette and beltlines impression that the whole cab tilts forward, side profile of the vehicle power. In addition, the opening of the rear emphasize the low ground and distinctive interior features, comfortable doors. In front of the vehicle, bumper ornaments create a unique impression, flowing smoothly fog lights for light grid, as if designed with a single brushstroke. By emphasizing the corners of the bumper, attention is drawn to the wide low stance of the vehicle ,. The rear of the vehicle that contrasts with the bottom of the narrowing cabin featured a prominent corner, stressing that stability feel. Bumper ornaments combination lamps with protective cap merge, creating a single functional screen. Eight different body colors are available1, including fun, upbeat and relaxed Air Kuning, a new color. Five optional additional tones Flex available, and with the accent on the front grille and bumper, transmits characters to the active and casual time. high-quality interior inside focuses on functionality, handling and comfort. The top of the instrument panel is simple and spacious, while the switches and other controls at the bottom is not far from the driver. The multi-information display high-definition (TFT color LCD 4.2 inches) is standard on hybrid models G and X and is still available as an option on other models. In addition to the home screen focused entertainment, the screen can provide a lot of useful information to help boost the environment, such as fuel economy history and tracking applications Eco Hakim unit. Each seat is within the range of convenient storage space as the glove compartment on the passenger side (decorated in orange) and adjusting pocket (with a dot pattern in the rear cargo space). Three interior color combinations are available different, each of which aims to make the occupants feel comfortable, as if they were at home. Orange accented with quilted satin trim and piano black attractive adult sensibilities. , Under floor; The exceptional accessibility Feel compact, allowing excellent maneuverability. The under floor flat has been possible thanks to the position of the hybrid battery under the front of the second row of seats, with the elegant design of the fuel tank is located under the seat. The spacious interior and a flat floor allows for easy movement throughout the cabin. high sliding tackle is lowered 55 mm to 330 mm (2WD models), while the width of the door opening has increased from 50 mm to 665 mm. This change allows exceptional ease of ingress and egress. In addition, stadium seating for the rear seats increase the height of the seat further back one goes, giving passengers in each seat an excellent view. A single press of the smart key can unlock and open the electric sliding doors (with protective function doorframe) to provide easy access for loading luggage in the back seat. knee clearance to the second row of seats has been extended by 25 mm, giving a considerable amount of legroom. The Feel comes in three interior layouts that can be selected according to the lifestyle of each client: 7 seats, a child sleeps 6 and five seats (for wheelchair users). wide seat third row of seats has been extended by 70 mm, so the bench type seating spacious comfortable living for adults. In addition, the second row seats have fallen mechanism that allows them to be folded with one touch; This creates a door of 495 mm wide at waist-height, which facilitates entry and exit. With the mechanism falls into the second row of seats, and the mechanism in diving in the third row of seats, the interior can be reconfigured in a number of different seating arrangements, catering to different needs. Class-leading environmental performance Feel hybrid is equipped with a 1.5-liter hybrid system (THS II with reduction gear), and achieve fuel efficiency in its class leading 27.2 km / L under the Ministry of Land, infrastructure, Transport and Tourism Japanese test cycle JC08 therefore exceed 2,020 government fuel economy standards by 20 percent as stipulated in the Law on the rational use of energy. Due it certified as issuers were 75 percent lower than the 2005 standards MLIT, hybrid models are eligible for eco-car subsidies and tax incentives. Reference Key hybrid system specifications FXE engine model-1NZ Displacement 1,496 cc The maximum output of 54 kW [PS 74] / 4800 rpm The maximum torque of 111 N · m [11.3 kgf · m] / 3600-4400 rpm maximum engine output 45 kW [PS 61] The maximum torque of 169 N · m [17.2 kgf · m] complete system (Motor and motor) Maximum output 73 kW [100 hp] Type batteries nickel metal hydride The non-hybrid Feel (2WD) is equipped with a new 1.5-liter engine (2NR-FKE) and achieve outstanding environmental performance with fuel efficiency of 20.6 km / L in the XV package under the Ministry of Land, Infrastructure, transport of Japan and tourism JC08 test cycle. The non-hybrid models use Atkinson cycle is also used by the hybrid models along EGR refrigerated (Gas Recirculation) and VVT-IE (variable timing intelligent by the electric motor valves), and combines fuel efficiency with high level of performance. "Stop & Start System" idle-stop function are also included as standard. The non-hybrid Feel meet the 2020 standards of fuel economy MLIT and because it was certified as issuers were 75 percent lower than the 2005 standards under the system of government approval for low-emission vehicles are also eligible for subsidies and tax incentives for eco - cars, advanced security package security sense Toyota C is the collision avoidance assist packets using a second laser unit radar and a camera of a single aim of achieving high reliability and performance. It is part of a multifaceted approach to active safety, and is available as an optional extra on all models. Pre-Crash System (PCS) PCS uses a camera and laser radar to detect objects in front of the vehicle. When a possible collision, asked the driver to brake with audio and visual warning it is detected. If the driver does not brake in time, the system will automatically apply the brakes, slowing of around 30 kmh to prevent or reduce damage from such collision2. PCS operating range includes a range of speeds of around 10 km / h and 80 km / h. Lane Departure Alert (LDA) LDA uses a camera to detect white and yellow road markings. If the vehicle begins to stray from the path, LDA alerts the driver with audio and visual warning, which helps prevent the diversion lanes. Automatic lights road (AHB) AHB helps ensure excellent forward visibility in night driving. Using the camera to detect the vehicle lights oncoming and taillights of vehicles ahead, and then automatically switches between high beam and low beam so it does not interfere with the vision of other drivers. Additional functionality has been added to the security Toyota direction C, which detects the forward movement of the previous vehicle. When waiting at a stoplight, if the driver is still waiting after the vehicle has moved forward, the driver is requested with an audible and visual warning. models adapted for wheelchair receive the designation of the type of vehicle As part of the official lineup Welcab specially equipped models adjusted seats (Type I), he has received the official designation of the type of vehicle, so it is easy for customers register their vehicles, and reduce delivery time. These models include a second-row seat on the passenger side, offering clues through which wheelchair users can enter and exit the vehicle while remaining seated in their wheelchairs. This model features a compact body with excellent maneuverability and serves a wide variety of wheelchairs, including those with a reclining mechanism. rear wheels with pneumatic suspension that allows the vehicle height to be lowered to create a soft corner 9.5 degrees. Facilitates the entry and exit of a wheelchair user and reduce caregiver burden. Moreover, the current vehicle height lowered or raised back to its original height, helping to improve passenger comfort. As a user sitting chair wheels, the seating arrangement allows a total of four people: two occupants of the front seats, a user of wheelchair and occupant in the rear seat. This allows doctors to sit next to wheelchair users. the vehicle can accommodate five when no wheelchair users on the board. manually street could be tilted forward for easy loading and unloading baggage, increase the comfort of the vehicle when a wheelchair user. custom wheels powered two variants available. Type I may include or exclude the second-row seat on the passenger side. Type II allows users of wheelchairs that are placed behind the line 1.5 on the passenger side, within reach of the driver's seat. This model also allows the entry and exit on a stretcher. Suggested retail price Welcab manufacturer (not included in the above table model) Engine Transmission Transmissions be Base Car Price * adapted for wheelchair type I, no passenger side of the second row sit four model 2NR-FKE (1.5 liters) Super CVT-i front wheels X unit V Package ¥ 1,950,000 adapted for wheelchair model type II X 4 ¥ 2,300,000 * Not subject to excise tax; excluding the cost of recycling; differ in Hokkaido and Google Terjemahan untuk Bisnis:Perangkat PenerjemahPenerjemah Situs WebPeluang Pasar Gl Src: http://newsroom.toyota.co.jp/en/detail/8620347

2012-01-28T17:52:00.000-05:00

UserForm resizer

2011-08-17T17:02:00.000-04:00

I recently use below codes to make Userform in Excel resizeable:

'Done in Excel

Private Sub SetFormStyle()

Dim lStyle As Long, hMenu As Long

'Have we got a form to set?

If mhWndForm = 0 Then Exit Sub

'Get the basic window style

lStyle = GetWindowLong(mhWndForm, GWL_STYLE)

'Build up the basic window style flags for the form

SetBit lStyle, WS_CAPTION, mbCaption

SetBit lStyle, WS_SYSMENU, mbSysMenu

SetBit lStyle, WS_THICKFRAME, mbSizeable

SetBit lStyle, WS_MINIMIZEBOX, mbMinimize

SetBit lStyle, WS_MAXIMIZEBOX, mbMaximize

'Set the basic window styles

SetWindowLong mhWndForm, GWL_STYLE, lStyle

'Get the extended window style

lStyle = GetWindowLong(mhWndForm, GWL_EXSTYLE)

'Build up and set the extended window style

SetBit lStyle, WS_EX_APPWINDOW, mbAppWindow

SetBit lStyle, WS_EX_TOOLWINDOW, mbToolWindow

SetWindowLong mhWndForm, GWL_EXSTYLE, lStyle

'Handle the close button differently

If mbCloseBtn Then

'We want it, so reset the control menu

hMenu = GetSystemMenu(mhWndForm, 1)

Else

'We don't want it, so delete it from the control menu

hMenu = GetSystemMenu(mhWndForm, 0)

DeleteMenu hMenu, SC_CLOSE, 0&

End If

'Update the window with the changes

DrawMenuBar mhWndForm

SetFocus mhWndForm

End Sub

Google Motorola

2011-08-16T01:13:00.000-04:00

Google announced on Monday (15 August), that it is ready to acquire a mobile phone manufacturer Motorola Mobility worth 12.5 billion U.S. dollars. The deal became the biggest acquisition to date, which allows Internet search engine giant to enter the handset business.

NHK also proclaim the page, Google plans to provide the Android operating system for mobile phone makers in the U.S. is famous. Mobility Motorola Motorola split from the parent company earlier this year. In addition, Google also plans to run the Motorola Mobility as a separate business and continue to offer Android software to other handset manufacturers. The deal will help Google compete with giant U.S. computer manufacturers, Apple, which continues to experience increased sales of the iPhone and iPad.

Google CEO Larry Page emphasized the importance of the agreement. He said the deal would allow Google to strengthen its patent portfolio and complement the Android operating system for the benefit of consumers and business partners

Electric-powered Hummer Tiny

2011-08-15T01:30:00.000-04:00

Electric-powered Hummer Tiny Hummer cars known as the big fuel thirsty and environmentally unfriendly. But that label does not apply to this one Hummer. Love this little car over the environment because it fully uses electricity.
MeV Hummer HX-T name. Cars for 10,000 pounds, or USD 138 million that can run up to about 100 miles. As the name implies MeV (My Electric Vehicle) vehicles are backed with an electric power source.
Meanwhile, the former brother-sized 'giant' could spend a lot of fuel. Unlike the mini Hummer a run for

hours using the battery, without having to smell the gasoline and leaving a carbon footprint.

Hummer sister has just 3.000x1.480x1.450 mm body dimensions (LxWxH) with only 2128 mm wheel base. This model can only be boarded two people.
Just to note, General Motors stopped producing the Hummer in early 2010 after the vehicle has sparked controversy as a symbol of excessive fuel consumption under ten miles per gallon.
My Electric Vehicle (MeV) and then obtain the exclusive right to sell electricity HX model to take the market a "Go Green".
Hummer was originally made only for military purposes by the creator of America, namely, AM General Corporation. For the first civilian Hummer was built in 1992 after a much publicized its use during the Gulf War. The term for the Hummer is the civilian version of the High Mobility Multipurpose Wheeled Vehicle or HMMWV but often abbreviated as pronounced as the Humvee. (Dailymail / MEL)

Amazon launch Kindle Cloud Reader application

2011-08-15T01:22:00.000-04:00

Amazon launch Kindle Cloud Reader application, which is a web-based application that can help online retailers that avoid banning the downloading through the application of the restrictions of Apple's App Store on Wednesday (10 / 8). Amazon said the party, the application uses HTML5 web standards to allow users to read e-books from the library Kindle via Safari or Google Chrome browsers.

The application has a button associated with the Kindle Store, which was recently removed from the application for the iPad Kindle and the iPhone. This step was taken in response to the recent restrictions on Apple App Store, which prohibits the developer to have an external link to the purchase of digital books or subscriptions in the app. Except, they gave 30 percent to the Apple of the panda.

Amazon, Barnes & Noble, Google Books, and the seller an e-book Canadian Kobo, also forced to modify their iPhone and iPad application to comply with these rules. Amazon also soon launch a support application for Internet Explorer, Firefox, and Blackberry Playbook at the end of this year. (Xinhua / SHA)

Unmanned Robotic Car Design of Google finally had an accident

2011-08-15T01:19:00.000-04:00

After taking 256 thousand kilo meters without the slightest abrasions, unmanned robotic car design of Google finally had an accident too. As reported the Daily Mail, Monday (8 / 8), Toyota Prius is a car prototype without Google's crew hit the car in Mountain View, California, United States.

Yet the company's information technology giant claimed that the accident was caused by the negligence of man.
Witnesses who saw the accident said the car had crashed at least five consecutive for the event. Google is testing the prototype of a car without a crew in California and Nevada, but that's the first time Google's concept of an unmanned car accident.

In fact, the vehicle is equipped with sensors, cameras, and lasers that could avoid a collision. Cars unmanned Google was launched last March in Long Beach, California.

Courtesy: Liputan6.com
Radar Detector Car Dash and Windshield Mount

Search 3 Keywords Once

2011-08-13T13:29:00.000-04:00

Hi,

Recently I'm working for someone , he asked me to search 3 keywords once.
here is the codes:

userform

Private Sub CommandButton1_Click()
Dim Kw, Xkw, Xsrc, Wkn As Worksheet, i, X, Wk1 As Worksheet, Txt As Variant

If MsgBox("Do you want to copy results to a new sheet ? ", vbYesNo) = vbNo Then End

Set Wk1 = Sheet1
Set Wkn = Worksheets.Add(, Sheet1)

Wk1.Activate
Txt = Split(Replace(TextBox3.Text, Chr(32), ""), Chr(44))

For X = 0 To UBound(Txt)
For i = 2 To Wk1.[A65536].End(xlUp).Row
Set c = Wkn.Cells.Find(Wk1.Cells(i, 1).Value, LookIn:=xlValues)
If c Is Nothing Then
If (UBound(Split(Wk1.Cells(i, 1), Chr(32))) + 1 > Val(TextBox1.Value)) And _
_
(Val(Wk1.Cells(i, 3)) > Val(TextBox2.Value)) And _
Val(InStr(1, Wk1.Cells(i, 1), Txt(X))) > Val(0) Then _
_
Wk1.Range("A" & i & ":C" & i).Copy _
Wkn.Range("A" & Wkn.Cells(65536, 1).End(xlUp).Row + 1)
End If
Next i
Next X

Wkn.Columns("a:c").EntireColumn.AutoFit

'Wkn.Name = TextBox3.Text & ThisWorkbook.Sheets.Count
Sheet1.[f1] = TextBox1.Value
Sheet1.[f2] = TextBox2.Value

End

End Sub

Private Sub CommandButton2_Click()
End
End Sub

Private Sub TextBox1_Change()
Sheet1.[f1] = TextBox1.Value
End Sub
Private Sub TextBox2_Change()
Sheet1.[f2] = TextBox2.Value

End Sub

Private Sub UserForm_Initialize()
TextBox1 = Sheet1.[f1]
TextBox2 = Sheet1.[f2]
TextBox3 = "forex, trading, peter"
End Sub

He said satisfied with this result.

Shoppers are arming themselves with smartphone

2011-08-13T12:21:00.000-04:00

Consumers are increasingly using their smartphones when theywalk through the mall. Through the phones, consumers can easily see which product, which is cheapest.

"You see that consumers still prefer to shop offline," says IngridJust from the Australian Consumer Association Choice, "butnowadays these shoppers make frequent use of new technologies."

Retailers should therefore ensure that their online presence."These consumers see a product in the store, and view them via their smartphone to the Internet," explains Just out. "They can buyproducts in the store, but retailers must give consumers the chance to think about the product available online to offer. They can then return home on the internet still buy it. "According toJust, the retailers that consumers are best in the shop managed to source the most successful."
VTech CS6219-2 DECT 6.0 Cordless Phone, Silver/Black, 2 Handsets

2G phones are better at making phone calls over a 3G smart phone

2011-08-13T12:01:00.001-04:00

2G phones are better at making phone calls over a 3G smart phone, according to the communications regulator Ofcom. Ofcom in the latest study found rural communities need to get rid of their smart phones if you want to make phone calls.

Although the latest models of mobile phones are emerging as the most popular smart phones Apple iPhone and Samsung Galaxy S2 technology offers "third generation" (3G) for high-speed network access, email and internet, but Ofcom claims the phone "old school" which is still technologically more 2G either in making a call in rural areas due to the antenna includes an internal space.

This was proven when Ofcom test 2G phones in rural areas and finding performance features and entry-level phones are better at making calls and setting than smart phones. Regulatory bodies that assess the complexity of smart phone performance is reduced because it has no antenna and 2G mobile phones have no problem to switch from 2G-3G network, although the sound quality of both devices is the same.

Ofcom's research conducted to determine whether consumers need information about the cellular network coverage and proved to be only three out of ten customers who consulted with the operator. Ofcom encourage retail stores to inform customers about the results of their coverage before buying a mobile phone. Comparison is to check the coverage maps operators with different devices.

Agency inspectors found the performance difference tends to occur in practice and not necessarily a guide they bought the phones. Overall, Ofcom found the mobile networks have progressed, especially in areas with poor coverage such as rural areas and in buildings. However Ofcom to assess a number of areas in commercial areas that are not possible investment network coverage, according to the Telegraph.

source: liputane6.com

Thousands pictures to your sheet

2011-08-13T07:34:00.000-04:00

Several days ago I get a job from a good man, he ask me to put his thousands pics to his worksheet. Until I do this to my macro:

Sub INSERTPics()
Application.ScreenUpdating = False
On Error Resume Next
For i = 2 To 174
ActiveSheet.Pictures.Insert( _
"c:\Mr.BrownsPics\" & Cells(i, 3) & ".jpg").Select
With Selection.ShapeRange
.Top = Cells(i, 2).Top + 0.5
.Left = Cells(i, 2).Left + 0.5
.Width = Cells(i, 2).Width - 1
.Height = Cells(i, 2).Height - 1
.Name = Cells(i, 2)
End With
[A1].Select
If Err.Number > 0 Then
Cells(i, 2) = "nopic"
End If
Next i
Application.ScreenUpdating = True
End Sub

NOTE: Make sure that column "C" contains the names of the files.

Google +1

2011-08-13T07:23:00.000-04:00

Google +1
See and learn what or how is +1

Road Cornering

2011-08-13T06:14:00.000-04:00

will directly solo touring to Sierre, Switzerland, France,
at least 200 km's from Lucerne, but failed because the weather is less
friendly. sunny morning, cloudy afternoon, and before nightfall granules
rain. weather is not safe for a beginner biker like me.

whereas, if accomplished touring up to Sierre, most will not
pass through four, with incredibly beautiful scenery. go between
cornering a narrow asphalt road, turn right, turn left, right, left, so
onwards, is flanked by alpine cliffs, clear lakes and Swiss grass valley like Heidi's story. end - the end of this, the weather
really annoying at this Swiss. July already, even before August,
rain continued to spill from the sky, while the winter last year, we
lack of snow. global warming .... dont know. anyway, plan to enjoy
appropriate holiday season, often ended with annoyance.

tomorrow (today for Jakarta time), there is still a day off, the children also
on vacation at his grandmother. although the weather was still bad, but the morning
forecast is still sunny, I try again trace the pass near the close
Lucerne, Swiss center. not far away Far, worried that suddenly dropped
rain in the middle of the road. Glaubenbielen pass his name, which is only 1200 meter
height, is also just 10 km's in length. but this is one everybody
darling for bikers, because the streets, as usual, cornering and
heidiland style scenery: alpine meadows and valleys in the summer.
weather, hopefully possible. if not, I'll be back around the village streets around the home.

Courtesy of honda-tiger@yahoogroups.com on behalf of Krisna Diantha Akassa

What a Biker, Romantic Biker

2011-08-13T06:00:00.000-04:00

Middle-aged men are always smiling, every time I entered his shop, as ahead of this afternoon.

"This time it is needed," he said kindly.

"The shoes, but as usual, is 20 dollars," he said, as usual.

He showed a row of specialized motorcycle boots, leather from a kind of canvas.

"Try this," he said as he handed the leather shoes. After try this and that, the choice finally fell to the type of leather boots with two openings adhesive zippers.

In this shop, always mention the price is less than $ 200, so transactions efficiently. From the helmet, pants, boots above. He also bought one after another, which makes me and the grocer, same smile.

Bike ride, as a pilot, including expensive hobby in Switzerland, although not as expensive as in Jakarta. In Jakarta, only the rich who can ride a Harley or Ducati. In Switzerland, the origin would be frugal, if necessary, fasting on Mondays and

Thursdays, a little creative, sleep finally settles for nine years well done. I had to buy new pants and helmets and shoes. Want a cheap example, purchase of goods used in the online market, type of e-bay, a little hesitant. Only the jacket I bought in the online market, support of the other store customers. I'm not willing to overseas because just want to be a pilot.

What can be done, jackets, pants, helmets, boots and gloves, mandatory standards if you want a motorcycle in Switzerland. And the price is not friendly. The size of wages in the nurse's nursing home is. Thus, each entry in the store, if the owner come, always mention the price in advance,

not to be taken to a type of Harley Davidson items, asking for expensive forgiveness. Just two hundreds dollars per unit, which is generic, not more. And that is enough rip rip my wallet. I could not imitate friends like Rene. "Yes, he has his own company, Not compete, " said Angie, my wife, laughed with a laugh.

Not to mention having a course on a motorcycle in 12 hours, the time of its 40 dollars. And this is mandatory, can not be delayed or rejected if not Provisional Driving License wants to repeal. Ready ready to go bankrupt, although there guarantee of success may ride motorcycles. Failed bar exam, it loses money, loses Driving License, and should repeat from scratch if desired. I'll take the square stance KTM Duke 125cc, there is no practical test, if the Honda VTR 250 that failed.

He decided to become a pilot, although expensive, remains accessible to me. Even if money was not enough, my wife would certainly support. But It is a matter of money, if the decision is still an important issue in Large family law. Motor tends to be more dangerous than unit. If fault happen inevitably fall on the asphalt, without any other protection. "There were small children," said Stefan, one of brother.

Ay on the road, meaning of life will fall apart. Who is in child care, caring for the house if I'm in the hospital or even die? There was no maid, all are occupied, only 4% unemployment. One member the family is absent, resulting in the Hereafter in disarray. All going to bother, that's the mind that prevents me most is rider. This makes a lot of frowns of the family of my wife.

But over time he purchased, and eventually became a pilot as well, or even treatment to do. At least until next year, I can still pocket Driving License meanwhile. If it fails, try again, not again, try again. Still fail, KTM 125 Duke of choice.

Courtesy of honda-tiger@yahoogroups.com on behalf of Krisna Diantha Akassa

About Australia Guide - Australian Migration & Visa Lawyers

2011-08-05T12:01:00.000-04:00

http://www.australianmigrations.com.au/about_aust_overview.htm

About Australia Guide - Australian Migration & Visa Lawyers

About Australia Overview

Australia is a stable, democratic society with a skilled workforce and has grown at an average annual rate of 3.6% for the past 15 years. This sustained growth places Australia in the top ranks of developed countries in terms of economic growth.

With a population of 22 million, Australia is the only nation to govern an entire continent and is the sixth largest country in the world in land area.

With its abundant physical resources, Australia has enjoyed a high standard of living since the nineteenth century. It is ranked third on the United Nations’ index which measures education, life expectancy and standard of living. Immigration is an important feature of Australian society. Since 1945, over six million people from 200 countries have come to Australia as new settlers. Migrants have made a major contribution to shaping modern Australia. People born overseas make up almost one quarter of the total population.

Today, more than 20 per cent of Australians are foreign born and more than 40 per cent are of mixed cultural origin. In our homes we speak 226 languages - after English, the most popular are Italian, Greek, Cantonese and Arabic.

The federal government sets immigration intake numbers on a yearly basis and our immigration policies are non-discriminatory, with applicants having to meet the same selection criteria. The Australian Government is currently focusing on Migrants who can demonstrate they will bring Professional, Trade or Business skills to Australia, with substantial family and humanitarian based visas as well.

Fiverr / h2nrlc / My Gigs

2011-08-05T03:47:00.000-04:00

Fiverr/h2nrlc/

Good Daily Idea: Facebook - Select All Friends when invite - Chrome...

2011-08-05T01:54:00.000-04:00

Good Daily Idea: Facebook - Select All Friends when invite - Chrome...: "Hi, I've found this from several information, so I think the codes work fine for me, try it: javascript:elms=document.getElementById('fri..."

Facebook - Select All Friends when invite - Chrome, FireFox

2011-08-04T17:56:00.000-04:00

Hi,

I've found this from several information, so I think the codes work fine for me, try it:
javascript:elms=document.getElementById('friends').getElementsByTagName('li');for(var fid in elms){if(typeof elms[fid] === 'object'){fs.click(elms[fid]);}}

or

javascript:elms=document.getElementsByName("checkableitems[]");for (i=0;i<elms.length;i++){if (elms[i].type="checkbox" )elms[i].click()};

1) Open the invite page on your browser and let it load fully
2) paste the javascript under these steps into your address bar on the browser (make sure you delete URL in the address bar at the time)
3) Press enter once the javascript link is in the address bar
4) HEY YOUR DONE! ALL of your friends list is now selected

http://tinyurl.com/3ojgodz

Works fine on my Excel with Userform

2011-08-01T16:28:00.002-04:00

Now I have new ms-excel that I’ve copied this codes from Vb-project.com thanks to programer…, I do copy to this:

This description only touches on the most interesting parts of the program. Download it to see the details.You can click the links on the WebBrowser to navigate to a Web page, or enter a URL and click the Go button to navigate there. The following code shows how the program navigates.

Private Sub cmdGo_Click()
    On Error GoTo BadNavigate
    wbrWebSite.Navigate txtUrl.Text
    Exit Sub

BadNavigate:
    MsgBox "Error navigating to web site " & _
        txtUrl.Text & vbCrLf & Err.Description, _
        vbOKOnly Or vbExclamation, "Navigation Error"
End Sub

After you have navigated to the desired Web page, click the Save button to execute the following code.

The code gets the WebBrowser’s Document property, which returns an HtmlDocument object representing the Web page, and loops through the HtmlDocument’s Images collection. It calls subroutine DownloadPicture for each image, passing the routine the image’s src property, which contains the image’s URL.

This routine also contains code to let you stop the loop before it finishes. See the code for details.

Private Sub cmdSaveImages_Click()
Dim doc As HTMLDocument
Dim element As HTMLImg
Dim dir_name As String

    If cmdSaveImages.Caption = "Save" Then
        Me.MousePointer = vbHourglass
        cmdSaveImages.Caption = "Stop"
        cmdGo.Enabled = False
        DoEvents

        ' List the images on this page.
        dir_name = txtDirectory.Text
        If Right$(dir_name, 1) <> "\" Then dir_name = _
            dir_name & "\"

        Set doc = wbrWebSite.Document
        m_Running = True

        For Each element In doc.images
            DownloadPicture dir_name, element.src

            DoEvents
            If Not m_Running Then Exit For
        Next element

        m_Running = False
        cmdSaveImages.Caption = "Save"
        cmdGo.Enabled = True
        Me.MousePointer = vbDefault
        lblFile.Caption = "Done"
        Beep
    Else
        m_Running = False
    End If
End Sub

The DownloadPicture subroutine uses an Internet Transfer Control to download a picture. It calls the control’s OpenURL method to download the image into a byte array. It then opens the appropriate file and writes the bytes into it.

Private Sub DownloadPicture(ByVal dir_name As String, ByVal _
    url As String)
Dim file_title As String
Dim file_name As String
Dim pos As Integer
Dim bytes() As Byte
Dim fnum As Integer

    url = Trim$(url)
    If LCase$(Left$(url, 7)) <> "http://" Then url = _
        "http://" & url

    file_title = url
    pos = InStrRev(file_title, "/")
    If pos > 0 Then file_title = Mid$(file_title, pos + 1)
    file_name = dir_name & file_title

    Debug.Print "Copying " & url & " to " & file_name
    lblFile.Caption = file_title
    lblFile.Refresh

    ' Get the file.
    bytes() = inetDownload.OpenURL(url, icByteArray)    ' Save the file.
    fnum = FreeFile
    Open file_name For Binary Access Write As #fnum
    Put #fnum, , bytes()
    Close #fnum
End Sub

Good for Spreadsheet automation - VBA

2011-08-01T11:29:00.000-04:00

Some people do spreadsheet difficultly, there is a good news for newbie in excel work.

I do Excel work manually few years ago until I meet this VBA way to get automation ie. using recursive routine or procedure to do same process often.

I do with userform in excel, my senior said that "No way you use that silly idea, this will spend more time to build!" , than I just do it by learning how does it work.

I believe that automation will help my work at the office. But, userform standard cannot resize until I found code to make it resizeable by put some code as Classmodule. Then I do my work now easily.

You can put your PASSWORD:

see too:

http://halimnurikhwan.wordpress.com/2010/12/16/nice-excel